| <!DOCTYPE html "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
| <html>
|   <head>
|     "
    "
|     <meta>
|       content="text/html; charset=utf-8"
|       http-equiv="Content-Type"
|     "
    "
|     <title>
|       "Тег PLAINTEXT"
|     "
"
|   "
"
|   <body>
|     "
"
|     <p>
|       "Пример программы"
|     "
"
|     <plaintext>
|       "
    <h1>Демонстрация метода Подборского</h1>
    while (<>) {
    $org=$_;
    s/\\["']//g;
    s/\/\/[^:].*//;
    s/\/\*.*\*\///g;
    if ($comment == 1) {
    if (s/.*\*\///) {
    $comment = 0;
    }
    else {
    next;
    }
    }
    if (s/\/\*.*//) {
    $comment = 1;
    }
    if (/^\s*#/) {
    next;
    }
    }</plaintext>
</body>
</html>"
