sub valid_ip
{
     my $bit = '[01]?\d\d?|2[0-4]\d|25[0-5]';
     return $_[0] =~ /^($bit)(\.($bit)){3}/;
}