use strict;
use warnings;

my @phrases = (
   q{Supply from pOwerGeNERator53 today.},
   q{DATA5Bus_C3 routed via PoweRgeNerator71 to data17buS_a3},
   q{The newPowerGenErATor6 will not change},
   );

my %rules = (
   q{(?i)\bpowergenerator(\d+)\b} =>
      q{qq{PowerGenerator$1}},
   q{(?i)\bdata(\d+)bus_([ABC])(\d+)\b} =>
      q{qq{@{ [ qq{Data$1Bus_} . uc $2 . $3 ] }}},
   );

foreach my $phrase ( @phrases )
{
    print qq{Original: $phrase\n};
    my $newPhrase = $phrase;
    foreach my $rule ( keys %rules )
    {
        $newPhrase =~ s{$rule}{ eval $rules{ $rule } }eg;
    }
    print qq{ Amended: $newPhrase\n\n};
}