>perl -wMstrict -le
"my $months = 'JanFebMarAprMayJunJulSepAugOctNovDec';
 my $month = 8;
 printf q{'%s'}, substr($months, $month*3, 3);
"
'Aug'