my $pattern = "^audit";  #No results
#my $pattern = "\Aaudit"; #No results

@dir_files = grep { $_ =~ /$pattern/ } @dir_files;
 for my $list(@dir_files){
   print "$list\n";
 }