printf "%v02X\n", $x;

##</code><code>##

AA.154.AA.154

##</code><code>##

substr( $x, $_, 1 )) << 1

##</code><code>##

( substr( $x, $_, 1 )) << 1 ) & 0xFF