open my $f, '<', 'fname.txt';
my @f = map { /(\d+)/g } <$f>;
[download]

voilą! if your file is too big, you should instead:

open my $f, '<', 'fname.txt';
my @f;
push @f, /(\d+)/g while <$f>;
[download]