Help for this page

Select Code to Download

Select or download this

$html =~ s{`([\[\]]|`+|(\w+)([%&\\]?)`?|.)}{
    my $s= $1;
...
        '`'.$s;
    }
}seg;