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