sub ChainSubs{
  my $string = shift;
  for (my $i=0;$i<@_;$i+=2) {
    $string=~s/$_[$i]/$_[$i+1]/g;
  }
  return $string;
}