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