Select Code to Download

while (my $line = <$fh>) {
    my $val = substr($line, $char_at, $num_chars);
...
        push @trnAccounts, substr($line, $char_at, $num_chars);
    }
}