local $/ = undef; # Datensatztrenner für Eingabe löschen my $data_line = ; # liest komplett die Daten aus dem Abschnitt __DATA__ (siehe unten!) in Variable my @data = split /[\n\s]/, $data_line; # Zahlen extrahieren print "Zahlen sind: ", join "\n",@data; # Zum Test wieder ausgeben __DATA__ 123 4567 901 234 567 9876 7865 7816 12211 12212 12992