Select Code to Download

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

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