my ($scrip) = $ARGV[0] =~ /^(\d+\.\d+\.\d+\.\d+)/;

print "\$scrip returned : $scrip\n";
print "match 1 : $1\nmatch 2 : $2\nmatch 3 : $3\nmatch 4 : $4\n";