I have this one, but it only accepts 10.3.2.1 (as well as www.example.com).
if (($qs =~ /^(\d+\.\d+\.\d+\.\d+)$/) or ($qs =~ /^([a-zA-Z0-9][a-zA-Z0-9\.\-_]*)$/)) { $qs = $1; [download]
In reply to Script to input IP Address and Subnet Bits (10.3.2.0/28) by jesuashok