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