Select Code to Download

my $pattern  = '\\Aaudit';
my $no_file_error      ="TRUE";
...
       print "$ftp_command $list\n";
     }
     }

$VAR1 = "audit";
Net::FTP>>> Net::FTP(2.77)
...
get -rw-rw---- 1 xupromgr xupromgr           18 Feb 27 14:21 no_audit_
+date.txt
get -rw-rw---- 1 xupromgr xupromgr           10 Feb 27 14:08 auditsamp
+le.txt
get -rw-rw---- 1 xupromgr xupromgr           11 Feb 27 14:21 audit_dat
+e.txt

$VAR1 = "^audit";
Net::FTP>>> Net::FTP(2.77)
...
-rw-rw---- 1 xupromgr xupromgr           10 Feb 27 14:08 auditsample.t
+xt
-rw-rw---- 1 xupromgr xupromgr           11 Feb 27 14:21 audit_date.tx
+t
No files exist with that ^audit

$VAR1 = "\\Aaudit";
...
-rw-rw---- 1 xupromgr xupromgr           10 Feb 27 14:08 auditsample.t
+xt
-rw-rw---- 1 xupromgr xupromgr           11 Feb 27 14:21 audit_date.tx
+t
No files exist with that \Aaudit