gistfile1.ph

#!/usr/bin/perl

use strict;
use warnings;


my $str = shift @ARGV;

if ($str =~ /(|\d+?)((?:(?:2[1..5][1..5]|1?\d?\d)\.){3}(?:2[1..5][1..5]|1?\d?\d))/) {
    if ($1) { warn "Strange ip: $&" }
    print "Success: $2\n";
}