if (($qs =~ /^(\d+\.\d+\.\d+\.\d+)$/) or
($qs =~ /^([a-zA-Z0-9][a-zA-Z0-9\.\-_]*)$/)) {
$qs = $1;