foreach $file(@filenames){
my(undef,undef,$ftype) = fileparse($file,qr{\..*});
print "$ftype\n";
#$data = 'nfcapd.200803052325';
@tmp = split(/\./,$ftype);
print "$tmp[1]\n";
$var = substr($tmp[1],0,8);
$year = substr($tmp[1],0,3);
$month = substr($tmp[1],4,5)...