Подскажите пожалуйста как можно организовать следующее

есть:
#/usr/bin/perl
...........
........
open(ip, "</tmp/1");
while(<ip>)
{
print;
};
.........
.......

вывод:
192.168.1.2
192.168.1.40
192.168.1.122

нужно чтобы выводил:
2
40
122

• чтение файла со смещением,gibbon, 15:24 , 12-Май-07
  • чтение файла со смещением,creapt, 16:52 , 12-Май-07

>Подскажите пожалуйста как можно организовать следующее
>
>есть:
>#/usr/bin/perl
>...........
>........
>open(ip, "</tmp/1");
>while(<ip>)
>{
s/^.*\.//;
>print;
>};
>.........
>.......
>
>вывод:
>192.168.1.2
>192.168.1.40
>192.168.1.122
>
>нужно чтобы выводил:
>2
>40
>122

спасибо