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