#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

my $date_string = 'Oct 31 08:30';

my $t = Time::Piece->strptime($date_string, '%b %d %H:%M');

print 'Day=', $t->mday, ' Month=', $t->mon;

##</code><code>##

Day=31 Month=10