Help for this page

Select Code to Download

Select or download this

while (
   print(STDERR  "[", pos($content), "]"),  # DEBUG
...
) {
   ...
}