$string =~ /(?<Jahr>\d{4})(?<Monat>\d{2})(?<Tag>\d{2})(?<Stunde>\d{2})(?<Minute>\d{2})(?<Sekunde>\d{2})/;
foo($+{Jahr}, $+{Monat}, $+{Tag});