Looks like you've got two options at this point. The first is just to turn strict off around that block:

{ 
  no strict;
  eval $code;
}
[download]

Or you can attempt to pick off the errors one at a time, outside the eval;

my $res_g2;
eval $code;
die $@ if $@;
[download]

I'd recommend seeing how far you can get with the second method, though its quite possible that you'll encounter an error that cant be fixed in this manner.

-Blake