/usr/bin/perl

$_= "20070708_20070707_de_qy.xml";
s/\.xml$//;
print "$_\n";