system('telnet' , '192.168.1.1');

##</code><code>##

my $var = `telnet 192.168.1.1`;
$var =~ s/192.168.1.1//;
print $var;