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