Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
>perl -we"our $x; $x .= <>" <nul

>
```