$x="001002003";
@y=grep(!/^$/, split(/([\d][\d][\d])/,$x));

#Hilft auch, wenn die Feldlaengen mal nicht bekannt sind
$x="001Heute002nur003Salat";