{ 
  no strict;
  eval $code;
}

##</code><code>##

my $res_g2;
eval $code;
die $@ if $@;