Select Code to Download

for my $line (@lines) {
    print "Line: $line\n";
...
        print "parse() failed on argument: ", $error, "\n";
    }
}

field1, field2, field3

"field1", "field2", "field3"