while (<>) {
   while (/.../g) {
      push @matches, ...;
   }
}