my $date  = Time::Piece->strptime("032015", "%m%Y");

##</code><code>##

perl -MTime::Piece -le'print Time::Piece->strptime( sprintf( "%06d", "32015"), "%m%Y" )'