use Date::Manip;
my $in = '051093';
print UnixDate($in =~ s#(..)(..)#$1/$2/#r, '%m/%e/%Y');
[download]