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