Применение шаблона к элементам массива или нестандартная варка Perlовки

[Nexta_s]

Имеется оборудование, к которому можно подключиться только по протоколу telnet и только одно соединение, оборудование понимает ограниченное количество команд (6),
необходимо скопировать с оборудования файлы с определенным расширением и проверить как скопировалось.
Из языков только Perl.
вот что есть на данный момент:

#!usr/bin/perl 
use strict;  
use Net::Telnet;
$t = net::telnet->new( Timeout =>30,
# сколько времени ждать чуда
                       Prompt => '/%/',
# какой командный интерпритатор вызовется для приятия данных
                       Host => $host,
 #Куда собрались цепляться IP, Порт
                       Port =>23,
                       Telnetmode=>0,
                       Errormode => "die",
                      Input_log=>"input.log",
                      Dump_log=>"dump_ats.txt");
$t->open ($host);
$t->break;
#break обязателен  - из-за кривости телента  без брейка не работает 
$t->login($username, $password);
$t->waitfor('/\>/');
@files = $t->cmd("ls -a -l");
print  @files;
#вот здесь я и запуталась
while (@files) 
{if  $file (@ files)=/\.bak$/i 

{$file=$t->cmd("put $file tftp://address/dir/");}}

в поисковики можете не посылать - перекопано все включая CPAN

[ssdm]

{$file=$t->cmd("put $file tftp://address/dir/");}}

Оборудование понимает команду poot? Если да,то просто проверьте $file. Если он будет равен единицы то команда выполнилась успешно.
Или у тебя с регулярным выражением проблема ?
Да и while у тебя не правильный.
Попробуй так :

foreach my $l (@files){
if ($l=/\.bak$/i ){
print $l;
print my $k=$t->cmd("put $l tftp://address/dir/");
}
}

[Nexta_s]

Да оборудование понимает данную команду .
спасибо вам большое за помощь

[ssdm]

ну так что? все заработало ?

[Nexta_s]

Заработало.
Накрутила где-то дальше.
my $date_copy= cmd("localtime(time)");
#выясняем текущее время
#нет работает следующая команда:
my $renamed_file=$t->cmd("mv billing.bin biling$date_copy.bak");
# переименовываем текущий основной файл отчета
my $new_file= cmd ("touch billing.bin");
#создаем пустой файл с заранее заданным именем
my $transfer_file=$t->cmd("tftp get $new_file billing.bin");
# загружаем файл