Quick and ugly test

perl -e '
@months=qw(JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC);
$date_in="NOV-07";
($month,$year)=$date_in=~/([A-Z]{3})-(\d{2})/;
for $index (0..@months){
   print "20$year/",++$index,"\n" if $month eq $months[$index];
}
'
[download]