I have to admit I am confused by your post. Your code
snippet is very vague and how/where some of the variables
are used is a mystery to me, so keep this in mind as you
read my reply.
If the file you are reading contains records between "TTY"
you would be better off reading the entire file in (if it is
small enough) and then doing a split on it, like so:
@sections = split(/\"TTY\"/,$file_contents); Now @sections will contain each chunk of data and you can
process each of those as needed. If your concern is reading
in the file and breaking on the end of the line, I would
recommend using a hex editor to view the original file and
determine exactly what the end of line character is, then you
use that to split again inside of your sections loop
You can set the input record seperator if you are determined
to read in each line via a while, using the $/ global special
variable.

Again this is based on my vague understanding what you are
attempting to do.