>>174
Perlなら、>>147-148を利用して、
my $match = $str =~ m/($remark)|$sgml|$html/isg;