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