while ( $m =~ m/(match me)/g ) {
  # $1 an @array anhaengen
   push( @array, $1 );
}