Select Code to Download

@words = ("filename" , "file.txt");
$line = "my file is file.txt";

$file = (grep{$line =~ /$_/i} @words)[0];

...
  next if($line !~ /$_/i);
  $file = $_;
}