#!/usr/bin/perl
$_="20070708_20070707_de_qy.xml";
my $result= /(.)\.xml$/;
print $result;