use DateTime::Format::Strptime;

my $string = "19830501";

my $format = DateTime::Format::Strptime->new( pattern => '%Y%m%d' );
my $date = $format->parse_datetime( $string );