in reply to Replacement Regex

i got this to work w/o much trouble. first time for everything.

perl -le'$_="2 (2) 2 (2) 2"; s/2(?!\)|\(.*?\))/two/g; print'

[download]
perl -MLWP::Simple -e'$_="104116116112058047047112097114115101101114114111114046099111109047112"; $s .= chr for/(...)/g;getprint $s' |more

In Section Seekers of Perl Wisdom