$time = "0406141832"; 
($y,$m,$d,$h,$min) = $time =~ /../g; 
print "$m $d, $h:$min"