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;

##</code><code>##


a.AS1	10.0.0.128

b.AS1	10.0.0.129

c.AS1	10.0.0.130

d.AS1	10.0.0.131

e.AS1	10.0.0.132