Select Code to Download

#!/usr/bin/perl -w
...
          print $x if ($x eq $y);
    }   
}

if ($ID=~ m/one.txt two.txt three.txt/)