perl -we 'use Date::Manip; for (@ARGV) { print UnixDate($_ . "/15","%m\n") || "?\n"; }' january Dec 3 Apr MAY xJun #### 01 12 03 04 05 ?