111.111.111.111
222.222.222.222
333.333.333.333


##</code><code>##

my $File = input.txt;
open(FILE, "$File");
@IPLIST = <FILE>;
close(FILE);

foreach my $test (@IPLIST) {
  print "Is $test an IP?\n";
}


##</code><code>##

Is 111.111.111.111
an IP?
Is 222.222.222.222
an IP?
Is 222.222.222.222
an IP?

##</code><code>##

Is
an IP?
Is
an IP?
Is
an IP?