#!perl -p s;${0+$_=~hex}|= \K;0x