$ perl -le 'my $x = q{X.xml1.xml.xml}; print substr $x, 0, -9'
X.xml

##</code><code>##

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