Select Code to Download

#!/usr/bin/perl
use warnings;
...

print "\n# of lines: " . $line_count . "\n";

# split line to fields
my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k) = split("\t", $qry_line, 11);