#!/usr/bin/perl

open FH,"a.xml";
@data=<FH>
foreach $dat(@data){
$dat =~ s/EM/E/g;
}