my @extracted = ();
open(FILE, $file) or &error;
while (<FILE>){
  push @extracted, (/(foo\d+)/g);
}