0&&$len>0&&$len<($length-1)&&$p[$len-1]!="_") { $p .= "_"; $underscores--; } else { $i--; continue; } break; } } return $p; } ?>