$p=0; 
print( substr $s, $p, 3 ), $p+=3 while $p < length $s;