#! /usr/bin/perl 

for my $ip (@ARGV) {
    chomp($ip);
    
    if ($ip =~ /^
	( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
	\.
	( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
	\.
	( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
	\.
	( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
	$/x) {
	print "$ip ist eine IP\n";
    }
    else {
	print "  $ip ist keine IP\n";
    }
} # for