my $pattern  = '\\Aaudit';
my $no_file_error      ="TRUE";
my @dir_files =  $ftp->dir($ftp_directory);
$Data::Dumper::Useqq=1;
print Dumper($pattern);
my $netrc = Net::Netrc->lookup($ftp_server) or die ("Could not find login info in .netrc for $ftp_server");

     my $ftp = Net::FTP->new($ftp_server, Port => $ftp_server_port, Debug => 1) or die ('Could not create ftp object');

     $ftp->login($netrc->login, $netrc->password) or die ('Could not log in'), $ftp->message;

     $ftp->binary();

    #print directory of files before command
     print "--------------------First List all files------------------\n";
     my @dir_files =  $ftp->dir($ftp_directory);
     foreach my $list(@dir_files){
       print "$list\n";
     }

    @dir_files = grep { $_ =~ /$pattern/ } @dir_files;
     if (@dir_files == 0) {
      if ($no_file_error eq "TRUE") {
        print "No files exist with that $pattern\n";
      } else {
        print "Send Email: Cannot find files to GET for parameter $pattern";
      }} else {

     for my $list(@dir_files){
       print "$ftp_command $list\n";
     }
     }