Select Code to Download

while (my $line = <$TD_fh>)
{
...
    
    # Make use of the resolved line and/or data however you please her
+e.
}

# This subroutine accepts a filehandle and a line read from that fileh
+andle as arguments given in that order, it is meant for "Text (Tab de
+limited)" type files.
# It strips tabs and newlines from inside individual tab delimited dat
+a fields.
# It will modify the line that was passed to it (as if passed by refer
+ence) to resolve it, and return an array of the completely resolved l
+ine split on tabs.
...
    
    return @data;
}