Select Code to Download

#!/usr/bin/perl

...
my $str = shift;
my($day, $mon, $year) = split /(\D+)/, $str;
printf "%02d-%02d-%s\n", $months{$mon}, $day, "20$year";