#!/usr/bin/perl
use strict;
use warnings;

my $date = qq(0406141832);
my ($YY, $MM, $DD, $hh, $mm) = unpack("A2 A2 A2 A2 A2", $date);
my $formatted = "$MM $DD, $hh:$mm";
print $formatted, $/;