Probleme avec un exercice en perl

$ cat date.txt
sdfdsfdsfdsfdds14mai2003dsqdqsdsq31janvier1999
sdfdsfdsfdsfdds24novembre2003dsqdqsdsq31juin1999
sdfdsfdsfdsfdds24décembre2003dsqdqsdsq31juillet1999
sdfdsfdsfdsfdds24TITI2003dsqdqsdsq31avril1999

$ cat cherche_date.pl
#!/usr/bin/perl
use strict;use warnings;
open F,"date.txt" or die "E/S date.txt, $!\n";


my %mois=(
          "janvier"  => ["01", "hiver"],
          "février"  => ["02", "hiver"],
          "mars"     => ["03", "printemps"],
          "avril"    => ["04", "printemps"],
          "mai"      => ["05", "printemps"],
          "juin"     => ["06", "été"],
          "juillet"  => ["07", "été"],
          "août"     => ["08", "été"],
          "septembre"=> ["09", "automne"],
          "octobre"  => ["10", "automne"],
          "novembre" => ["11", "automne"],
          "décembre" => ["12", "hiver"],

);

while(<F>){
  chomp;
  my @t=$_=~/(\d\d.*?\d{4})/g;
  for my $m(@t){
    $m=~/(\d+)(\D+)(\d+)/;
    print "$m:$1.${$mois{$2}}[0].$3:${$mois{$2}}[1]\n"
          if grep {/$2/} keys %mois;
  }
}
__END__

$ perl cherche_date.pl
14mai2003:14.05.2003:printemps
31janvier1999:31.01.1999:hiver
24novembre2003:24.11.2003:automne
31juin1999:31.06.1999:été
24décembre2003:24.12.2003:hiver
31juillet1999:31.07.1999:été
31avril1999:31.04.1999:printemps