Select Code to Download

#!/usr/bin/perl

use 5.010;
...
if($x =~ /func$bpairs{'{'}/){       # here is the problem
    print "Second matched: $&\n";
}

After eval!
After eval!
First matched: {{xx|"}"} @{d}end}
Global symbol "$d" requires explicit package name at (re_eval 9) line 
+1.
Compilation failed in regexp at test.pl line 43.