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