my $patt=substr($_,0,index($_,"xml"));