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

##</code><code>##

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