while( $b ) { print substr($b,0,5,""); }