perl -le '
print scalar localtime;
$_=scalar localtime;
/^\QMon Mar \E
   (\d+) \s
   (\d+) : (\d+) : (\d+) \s
   (\d+)/x;
print "$1 $2-$3-$4 $5"
'
Mon Mar 16 21:22:30 2009
16 21-19-13 2009