open FILE, "< $file" or die "can't read $file: $!";
while (<FILE>) {
  push @extracted, /foo\d+/g;  # just like /(foo\d+)/g
}