yeah, I can't read that sorry.

What does

   $re = ${{
 "B(1)+C(2)" => '1|2',
 }}{$_}||quotemeta;
[download]

do? (I know what the code says, but as to why anyone'd write this is beyond me, it's not useful). what I would do is compile $re so it is a regex, using qr (see perlop).

Also, it will never print func MAIN ,
first it will print MAIN: 'B(1)+C(2)'=~/....