my $filename = 'name.2004021535523';
my ($date) = $filename =~ m/\.(\d{8})\d+$/;
my $stop_date = ((localtime(time))[5] + 1900).sprintf("%02d",((localtime(time))[4] + 1)).sprintf("%02d",(localtime(time))[3]);
if($stop_date - $date > 14){
  unlink $filename;
}