Select Code to Download

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

echo 123.45.67.890 | perl -ne'printf "%X%X%X%X\n", split /[\.\s]/'