use DateTime        qw( );
use List::MoreUtils qw( mesh );

my $string = "19830501";

my $date = DateTime->new(&mesh(
   [qw( year month day )] => [ unpack "A4A2A2", $string ] ));