Hmm.
I get no warning for row 5, only for row 7.
Use of uninitialized value $test in concatenation (.) or string at /tmp/test2.pl line 7.
Still, shouldn't the '1' before the OR evaluate first, and just skip everything after the OR?
-----BEGIN PERL GEEK CODE BLOCK-----
Version: 0.01
P++>*$c--->---P6 > R
>++++$M+>+++$O+++>+++$MA->+++$E >
PU->++BD->-C+>+$D+>+$S->+++X >+WP
>+++MO!PP
n?CO--PO!>!(!)o?G!A--OLC--OLCC--OLJ--Ee
!Ev-Eon-uL++>*uB!uS!uH-uo!w->!m+
------END PERL GEEK CODE BLOCK------
| [reply] [d/l] |