Actually, it not even going till that line.It gets time out before that as can be seen here.

C:\perlL\CLI>perl telnet.pl

Match: + pattern match timed-out at telnet.pl line 40