Help for this page

Select Code to Download

Select or download this

$ cat t.pl
use strict; use warnings;
...
Use of uninitialized value $f[1] in substitution (s///) at t.pl line 6
+, <DATA> line 4.
Use of uninitialized value $f[1] in concatenation (.) or string at t.p
+l line 7, <DATA> line 4.
result:

Select or download this

while (<DATA>) {
    next if /^\s*$/;  # skip blank lines
    ...
}