open(FILE, $file) or &error;
@data = <FILE>;
close(FILE);

@extracted = ();
foreach(@data){
   if($_ =~ /.*?(foo\d+).*?/g){
    push @extracted, $1;
  }
}