Select Code to Download

#!/usr/bin/perl -wd

...
    return quotemeta($in);
  }
}

print doFunc( "MAIN", "B(1)+C(2)" );
sub doFunc{
...
   }
    return "func $theFunc returns <$_>";
}