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