Select Code to Download

my $pattern = join '|', map{"\Q$_\E"}@search_terms; 
while(my $suspect = <FTS>){
...
      push @delete_me, "$base_path$term";
   }
}

foreach (@file_list){ # don't bother putting $_ here
  print $_, '<br>';
}