in reply to Perlnet Telnet issue with ->

From the documentation for Net::Telnet

This method reads until a pattern match or string is found in the input stream

So your program is stopping once it reaches the >, thinking it is the next prompt. You should probably change that regex to match something more specific. At the very least, try /[^-]>/ to avoid the specific instance you are seeing. But really, learn more about the modules you are using. The use of the /i modifier (which has no significance when matching only symbols) seems to indicate that you copy-and-pasted this code without completely understanding it.

print map{substr'hark, suPerJacent other l',$_,1}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);