$_[0] ||= "anonymous";  # <<<<<<<<<<<<<<<<<<< wrong wrong wrong

##</code><code>##

sub roy {
    my( $f, $b, $modifythisREF ) = @_;
    $$modifythisREF =~ s/yoda/yoda/g;
    return;
}

roy( "", "", \$body );

...