echo 1234.45.67.890 | perl -ne'printf "%X%X%X%X",split /\./'