This snippet:

open(PIPE, "telnet 192.168.1.1 |") or die $!;
while (<PIPE>) {
    $_ =~ s/192.168.1.1//;
    print $_;
 
}
[download]

Does what I want, but it hangs after printing what it has, it doesn't continue to the login screen..