my $FileName = "..\\MyXMLFile.xml";
$FileName =~tr/(\.xml)$//d;  

##</code><code>##

my $FileName = "..\\MyXMLFile.xml";
$FileName =~s/(\.xml)$//i;