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

##</code><code>##

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