use Time::Local;

my $filename = 'name.20040215135523';

my $days = 14;

my $delta_secs =  86400 * $days;

my($datestr) = $filename =~ /\.(\d+)$/;

my(@date) = unpack("A4A2A2A2A2A2", $datestr);

my($date_epocs) = timelocal(@date[5, 4, 3, 2], $date[1] - 1, $date[0] - 1900);

if ((time() - $date_epocs) >= $delta_secs) {
   printf("Datei aelter als %d Tage.\n", $days);
   
   # Datei loeschen
}