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

##</code><code>##

  $line =~ s/($pattern)/$subst{$1}/gi;