while (s/this/that/gp) {
    push @matches, ${^MATCH};
}