echo 123.45.67.890 | perl -ne'$ip = join ".", ("(\d{1,3})") x 4; /^$ip$/; printf ...'