$month =~ s/jan.*/01/i;
$month =~ s/feb.*/02/i;
$month =~ s/mar.*/03/i;
$month =~ s/apr.*/04/i;
$month =~ s/may.*/05/i;
$month =~ s/jun.*/06/i;
$month =~ s/jul.*/07/i;
$month =~ s/aug.*/08/i;
$month =~ s/sep.*/09/i;
$month =~ s/oct.*/10/i;
$month =~ s/nov.*/11/i;
$month =~ s/dec.*/12/i;