open FILE , "routers.txt" or die $!;
while (<FILE>)
{
   print "$_\n";
}
 print " Enter name";
$s=<>;
chomp($s);


while(my $line = <FILE>)
{
#if(/\b$s\b/){
      if(/\b$s\b/){
            my $IP = $line =~ /\d+\.\d+\.\d+\.\d+/;
             push(@IPS, $IP);
}


}
#print "hei";
print $IP;