#use strict;
#use warnings;
$regexp = table2;
$i =0;

open RE, $regexp;
while (<RE>) {
  chop;
  ($search[$i], $replace[$i]) = split(/ /, $_ );
  $search[$i] =~ s/\[/\\[/g;
  $search[$i] =~ s/\]/\\]/g;
  $i++;
}
  

while (<>) {
  for($i=0; $i < $#search; $i++) {
    s{$search[$i]}{$replace[$i]}g;
  }
  print;
}