Re^2: when $$s =~ m/\G.../gc is too verbose

[Corion]

Your second solution is no solution:

$_ = '!';
$s = \'No';
s//$$s/;
print;

You'd need to empty out $_ first, so the local $_ is the way.

[radiantmatrix]

Absolutely. That's the tricky part. ;-) It will work when $_ is undefined, but not otherwise. Of course, you could always change it to s/.*/$$s/, but still not advisable. More of an obfu trick...