in reply to Loop through global substitution

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

[download]
Better: 
while (s/this/that/gp) {
    push @matches, ${^MATCH};
}

[download]

Update: Thought it was m//g.

In Section Seekers of Perl Wisdom