Select Code to Download

my $file = 'Rajesh.1202242219';
my ($name, $datetime) = split /\./, $file;
my ( $y, $m, $d, $hr, $min ) = unpack 'A2A2A2A2A2', $datetime;
print "( $y, $m, $d, $hr, $min )";
# returns .. ( 12, 02, 24, 22, 19 )