use strict;
use warnings;
my $re = '('+join('|',@ARGV)+')';
$re = qr($re);
open my $file, '<', 'big21gfilename.ext' or die;
while( <$file> ) {
  printf "%d (%d): %s\n", $., pos, $1 while /$re/g
}