perl -e "$f=q|Tue Sep 13, 2005  10:38|; $f=~s/\ / /g; if($f=~m/\S+\s+(\S+)\s+(\d+),\s+(\d+)\s+(\d+):(\d+)/){print $1 . $2 . $3 . $4 . $5;};"
Sep1320051038