You could use a hash e.g

my %repmap = qw( AAA EEE  CCC NEWWORD  UUU NEW  ERD IPK );
my $find   = join '|', keys %repmap;

s/($find)/$repmap{$1}/ig, print DATA $_
  for @data;
[download]

HTH

_________
broquaint