open SOURCE, "somefile" || die $!; my @source = ; close SOURCE; my $digits = ''; map { my $in = $_; $in =~ s/\D//g; $digits .= $in; } @source;