#!/usr/bin/perl -w -i.bak
$regexfile = shift @argv;
open (FH, $regexfile);
@regexen = <FH>;
close FH;

while (<>)  {
   foreach $regex  (@regexen)   {
      ($a, $b) = split /\t/, $regex;
      s/$a/$b/og;
   }
}

##</code><code>##

#!/usr/bin/perl -w
$regexfile = shift @argv;
open (FH, $regexfile);
@regexen = <FH>;
close FH;

while (<>)  {
   foreach $regex  (@regexen)   {
      $regex;
   }
}