perl -E "$str = 'Hi World!'; $sub = \substr $str, 0, 2; $$sub = 'Hello'; say $str; say ref $sub"
Hello World!
LVALUE