perl -e'... if ($xyz) { print "my \$globalbar;\n"; } ...' | perl