$filename = "20070708_20070707_de_qy.xml"; $filename =~ s/\w{22}//; $filename =~ s/\.xml//; print "$filename\n";