Given your rules, this code seems to do what you want but it uses a string eval, the use of which should be treated with caution.

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};
}

[download]

The output.

Original: Supply from pOwerGeNERator53 today.
 Amended: Supply from PowerGenerator53 today.

Original: DATA5Bus_C3 routed via PoweRgeNerator71 to data17buS_a3
 Amended: Data5Bus_C3 routed via PowerGenerator71 to Data17Bus_A3

Original: The newPowerGenErATor6 will not change
 Amended: The newPowerGenErATor6 will not change

[download]

I hope this is of interest.

Cheers,

JohnGG

In reply to Re^3: regex capture case by johngg
in thread regex capture case by rmflow

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.