$a = "de0400Newark";
print split /[a-z]+/,$a;