truekonrads · August 9, 2013 12:16
diff --git a/getips.pl b/getips.pl
 #!/usr/bin/perl -wn

 @a=split /[^\d.]/;
 foreach (@a){
        print "$1\n" if m!^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$!;
 }
	#!/usr/bin/perl -wn

	@a=split /[^\d.]/;
	foreach (@a){
	print "$1\n" if m!^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$!;
	}