🚀 go-pugleaf

Tom Christiansen wrote:

> The "when it's not possible case" is demonstrated here:
> 
>     while (<>) { # YANETUT
>         s/^(([A-Z].*?)(:.*?)*?)(:\s*)?\n//
>             and ($3 || $4 ? $card : $sect) = $1;
>         next if /^\s*[=-]/;
>         for (split /\n(?=  \S|\+)/) {
>             s/\s+/ /g; s/^ //;
>             $new = s/^\+\s+// ? '+' : '';
>             next if $opt_n and !$new;
>             s/([a-z]\.) ([A-Z])/$1\n$2/g if $opt_s;
>             if ( ($opt_e ? $card : $_) =~ /$query/o ||
>                     (!$opt_e && $opt_h && $card =~ /$query/o))
> >>>>        {
>                 s/\n/ /g if $opt_s;
>                 $matches++;
>                 write;
>                 ($psect, $pcard) = ($sect, $card);
>             }
>         }
>     }
> 

I love Perl. It's my favorite language, etc. But perhaps the above code 
fragment doesn't really help with the readability argument <grin>.

Kwin