#!/usr/bin/perl
while (<>)
{ chomp; $i=0; 
  foreach $m ( "jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec" )
  { $i++; 
    $r=sprintf("%02s",$i); 
    s/$m/ $r /; s/:/ / } 
  $p=substr($_,5); print "$p\n" 
}
