for (..., substr($s, ...), ...) {
   ...
   do_stuff1(...);
   ...
}