while (my $ip = <IPS>) {
 chomp $ip;
 ...