#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @ns;
while(my $line = <DATA>) {
  $line =~ s/,/./; # we accept ',' as decimal point
  push @ns, $_ for ($line =~ /(-?\d+\.?\d*)/g);
}
die Dumper \@ns;

__DATA__

45.78   2598 11 11,4
79825
22

x
y
z 73