- s;^.*<h1[^>]*>(.*>)?([^<]+)(<.*)?</h1>.*$;\2;p; tQ;
- s;^.*<h2[^>]*>(.*>)?([^<]+)(<.*)?</h2>.*$;\2;p; tQ;
- b; :Q q;
+ s;^.*<h1[^>]*>(.*>)?([^<]+)(<.*)?</h1>.*$;\2;; tQ;
+ s;^.*<h2[^>]*>(.*>)?([^<]+)(<.*)?</h2>.*$;\2;; tQ;
+ b; :Q
+ # reverse escapes of cgilite HTML function,
+ # to prevent later double escaping
+ # later escaping must not be omited
+ s/</</g; s/>/>/g; s/"/'\"'/g; s/'/'\''/g;
+ s/[/[/g; s/]/]/g; s/
/\r/g; s/&/\&/g;
+ p; q;