$_ = 'taxial';
  my %subst = ( 'taxi' => 'cab', 'cabal' => 'gang' );
  use Regex::PreSuf;
  my $regexp = presuf(keys %subst);
  s/($regexp)/$subst{$1}/g;
  print;