Help for this page

Select Code to Download

Select or download this

my $tag = qr{
   <(?>/?)  # tag start
...
   >        # end of tag
}xi;
$str =~ s/$tag//g;