Select Code to Download

$a = "de0400Newark";
print join( ",", unpack( "a2a4a*", $a ));

$a = "de0400Newark";
print( (unpack( "a2a4a*", $a ))[1] );