#! /usr/bin/perl


print "Enter date: ";
chomp($date = <STDIN>);

($day,$month,$year) = split '/', $date;
print "$day $month $year\n";


%dates = (
    'Jan' => 01,'Feb' => 02,'Mar' => 03,'Apr' => 04,'May' => 05,'Jun' => 06,
    'Jul' => 07,'Aug' => 08,'Sep' => 09,'Oct' => 10,'Nov' => 11,'Dec' => 12,
);


foreach $char ($month){
    $char =~ s/.../$dates{$month}/;
}