unpack() is NOT sick. Simple string splitting is something that unpack() is great for, and it's a great way to LEARN how to use unpack(). You could also use:

push @parts, substr($num,0,3,"") while $num ne "";
[download]