use strict; my $str = "2-19-01 3:49pm"; my %months = qw(1 Jan 2 Feb 3 Mar); my ($month,$day,$year,$time) = split /-|\s/,$str; my $dataDate = "$months{$month} $day 20$year $time\n"; print $dataDate;