perl -e"for my $mon (0..11) { print substr('JanFebMarAprMayJunJulAugSepOctNovDec', $mon*3, 3), $/; }"
Jan
Feb
Mar
Apr
May
Jun
Jul
Aug
Sep
Oct
Nov
Dec