Help for this page
(append $u)='Bar'; print $u;
print +(append 'Foo')='Bar';
perl -we'sub { print \$_[0]==\${\$_[0]}&&"no ","copy $]" }->("Bar")'