Pergunta : que seria o regex para o seguinte teste padrão no Perl?

Eu tenho o seguinte texto no formato do HTML, using o regex do Perl como posso eu o analisar gramaticalmente e o print

" Perl é " muito bonito class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
class= > size= " 4 " de " Times New Roman " do face= do ☻ >Perl de " Times New Roman " do face= de very
beautiful
class= do

Resposta : que seria o regex para o seguinte teste padrão no Perl?

A menos que eu fizer um erro tipográfico, este começ o que você quer.
1:
2:
3:

meu ($match) = (=~ m de $html {] * (?! " do size= \ d+") *> [do ^>] (. *?)}Senhora);
=~ s de $match {(
|\ n)+} {} g;
cópia $match, “\ n”;
Outras soluções  
 
programming4us programming4us