my $comb=join('|',@ARGV);
while($line=<$infile>){
  if($line=~$comb){
    for $target(@ARGV){
      if($line=~$target){
        # do a thing
}}}}