>perl -wle"while ('a'=~/(.)/, 0) {} print(qq{Found $1})"
Use of uninitialized value in concatenation (.) or string at -e line 1.
Found

##</code><code>##

>perl -we"our $x; $x .= <>" <nul

>