$foo = (join ', ', 'abacadaeafagahaiaj' =~ m/a/g ); print $foo . "\n"; [download]
In reply to Re^2: Re-use of a global match by mr_mischief in thread Re-use of a global match by gube