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

my $string = "19830501";

my $date = DateTime->new( mesh @{['year', 'month', 'day']},
                               @{[unpack "A4A2A2", $string]} );