Thanks for your help, finally got it:
sub convert_date {
# ---------------------------------------
my $in = shift;
my %months = qw!1 Jan 2 Feb 3 Mar 4 Apr 5 May 6 Jun 7 Jul 8 Aug 9 Sep 10 Oct 11 Nov 12 Dec!;
my ($year, $mon, $day) = split /-|\s/, $in;
return "$months{int $mon} $day";
}
sub convert_date {
# ---------------------------------------
my $in = shift;
my %months = qw!1 Jan 2 Feb 3 Mar 4 Apr 5 May 6 Jun 7 Jul 8 Aug 9 Sep 10 Oct 11 Nov 12 Dec!;
my ($year, $mon, $day) = split /-|\s/, $in;
return "$months{int $mon} $day";
}
