#!perl -n0
s/$&./$@*=hex$'/ge,printf"$&%x
",$@while$@=/.* /