Help for this page
#! /usr/bin/perl -w use strict; ... $r = qr/<!--.*?-->/s; print "qrs: $_\n" for $html =~ /($r)/g;
m: <!-- comment --> m: <!-- ... qrs: <!-- comment -->