#!perl -p
s/./1^20+2.5*hex$&/eg;y/1-6/  .#
/