(??{...}) in regexps and lexicals

Select or download this

my $braces = qr{
           \(
...
my $str = 'foo( FieldName, trim(CStr(Request.Form(FieldName))), Countr
+yId )';

$str =~ $Braces and print "YES: $1\n" or print "NO!\n";

Select or download this

YES: CStr(Request.Form(FieldName))

Select or download this

YES:  FieldName, trim(CStr(Request.Form(FieldName))), CountryId

Select or download this

This is perl, v5.8.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
...

Binary build 805 provided by ActiveState Corp. http://www.ActiveState.
+com
Built 18:08:02 Feb  4 2003

Select Code to Download