in reply to Re-use of a global match
$foo = (join ', ', 'abacadaeafagahaiaj' =~ m/a/g ); print $foo . "\n"; [download]
The cases where m///g is useful are where:
In practice, I find myself using /g only in substitutions.