my $one = one;
eval "uncomment_$one()";

##</code><code>##

'abc' =~ m/b/;
print( eval( '$`') , "\n")