(append $u)='Bar';
print $u;

##</code><code>##

print +(append 'Foo')='Bar';

##</code><code>##

perl -we'sub { print \$_[0]==\${\$_[0]}&&"no ","copy $]" }->("Bar")'