open(DATA, ">$_") or die "File not open: $!";

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