$_ = 'taxial';
  s/taxi/cab/g;
  s/cabal/gang/g;
  print;