Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"my $desc = 'leave (only text) this () too -- does not (v(w(x)y)z) wor
+k';
...
 print qq{'$desc'};
"
'leave  this  too -- does not y)z) work'

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(balanced);
...
 print qq{'$desc'};
"
'a  b  c  d  e (unbalanced f'