local $/ = undef; # Datensatztrenner für Eingabe löschen
my $data_line = <DATA>;      # 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

#!/usr/bin/perl
use strict;
use warnings;

my $data_file="test.txt";

my @numbers=read_numbers($data_file);

sub read_numbers
{
  my $file=shift(@_) // return ();
  open(my $fh, '<', $file) or die "Error open $file ($!)\n";
  # Zeilenenden ignorieren
  local $/=undef;
  # daten lesen und an leerzeichen/zeilenumbüchen splitten
  my @data=split(/[\x0A\x0D\s]+/,<$fh>);
  close($fh);
  return @data;
}