Das war einer meiner vielen Versuche:
my $jahr = substr($datum, 0,4);
my $monat = substr($datum, 4,6);
my $tag = substr($datum, 6,8);