Oops, no title... Oh well...

I also should mention that by setting $/=\1; I can get it to produce the first prompt from telnet, read in the first input, and produce the second output up to the first newline, and which point (after the newline not before) it hangs.