perldoc -q 'remove html'

##</code><code>##

     #!/usr/bin/perl -p0777
     s/<(?:[^>'"]*|(['"]).*?\1)*>//gs