#!/usr/local/bin/perl
use warnings;
use strict;
while (<>) {
    s!/Jan/!/01/!g;
    s!/Feb/!/02/!g;
    s!/Mar/!/03/!g;
    s!/Apr/!/04/!g;
    s!/May/!/05/!g;
    s!/Jun/!/06/!g;
    s!/Jul/!/07/!g;
    s!/Aug/!/08/!g;
    s!/Sep/!/09/!g;
    s!/Oct/!/10/!g;
    s!/Nov/!/11/!g;
    s!/Dec/!/12/!g;
    print;
}