$ echo 123.45.67.890 | perl -ne 'for $x(1..3){/(\d+)/g; printf "%X", $1}'
7B2D43