$ perl -le 'my $x = q{X.xml1.xml.xml}; $x =~ s/1\.xml\.xml$//; print $x'
X.xml