Select Code to Download

#!/usr/bin/perl

...
    my ($addr_to_check) = shift;
    return ( $addr_to_check =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/
+ );
}

IP Validity Status:1

IP Validity Status:

IP Validity Status:0