sub {

my @months = qw/January February March April May June July August September October November December/;
my @dayextensions = qw/1st 2nd 3rd 4th 5th 6th 7th 8th 9th 10th 11th 12th 13th 14th 15th 16th 17th 18th 19th 20th 21st 22nd 23rd 24th 25th 26th 27th 28th 29th 30th 31st/;

my $date = $_[0];

if ($date =~ /^\d\d\d\d\-\d\d\-\d\d$/) {

my ($yyyy,$mm,$dd) = split /-/, $date;

$mm =~ s/^0//;
$dd =~ s/^0//;

my $dback = $dayextensions[$dd-1];
my $mback = $months[$mm-1];
my $yback = $yyyy;

return qq{$dback $mback $yback}

} else {


my ($dd,$mm,$yyyy) = split /-/, $date;

$mm =~ s/^0//;
$dd =~ s/^0//;

my $dback = $dayextensions[$dd-1];
my $mback = $months[$mm-1];
my $yback = $yyyy;

return qq{$dback $mback $yback}


}

}