in reply to Replacing $mon with Jan, Feb, Mar by regex or other means

    use POSIX 'strftime';
    print strftime "%m" => localtime;

[download]

Or you could keep it simple and do 

    print +(qw /Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$mon
+]

[download]

Abigail

In Section Seekers of Perl Wisdom