Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
  my $clean = s[<\w+>][ $allowed{$&} // '' ]ger;
  print $clean;
  }

Select or download this

xxx<pre>xxxxxx<strong>xxx
xxx<pre>xxxxxx<strong>xxx
...
xxx<pre>xxxxxx<strong>xxx
xxx<pre>xxx<strong>xxx<strong>xxx
xxx<pre>xxx<pre>xxx<strong>xxx