while (s/this/that/g) {
    push @matches, $&;
}