...
'myway' => sub {
    $_ = $str;
    $name = $str;
    while (/%[0-9A-Fa-f]{2}/) {
       $_ = $&;
...