#!/usr/bin/perl

use strict;
my %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',
);

my $date = "30/Feb/2013";
my ($day,$month,$year) = split '/', $date;
print "$day $dates{$month} $year\n";