my $sub = $evalcode_cache{$str} //= eval " sub { $str }"; 
my $str = $sub->(@_);