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