Help for this page

Select Code to Download

Select or download this

my %subst = ( 'AAA' => 'EEE', 'CCC' => 'NEWWORD',
              'UUU' => 'NEW', 'ERD' => 'IPK' );
my $pattern = join('|', keys %subst);

Select or download this
```
  $line =~ s/($pattern)/$subst{$1}/gi;
```