Well, this is one place where leaving the defaults makes it much cleaner:

foreach (@data)
{
    s/AAA/EEE/gi;
    s/CCC/NEWWORD/gi;
    s/UUU/NEW/gi;
    s/ERD/IPK/gi;
    print DATA $_;
}
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.