自作IPドメインサーチ

gethostbyaddr関数を使ってドメイン名からIPアドレスを返せるようにしてみた。
gethostbyname関数の逆なので使い方はすぐわかったが、
返ってくる値がChar型の4文字なのでunpack関数で数字に戻す。
unpack("C4",$value);
でうまく動いたのだが今のままではどんな文字列も問い合わせてしまうので、
うまく正規表現を使って文字列がドメイン名なのかをチェックしたい。