Fråga : vad skulle är regexen för efter mönstra i perl?

Jag har efter texten i html att formatera, using perl-regex hur kan jag parse den och print

" Perl är mycket härlig " > för

1:
2:
3:
4:
5:
6:
7:

" codeBody " class= " för class= " för ☻ <-/font>Perl is
very
beautiful
" klar "

Svar : vad skulle är regexen för efter mönstra i perl?

Om inte jag gjorde en typo, detta att ska får vad du önskar.

1: 2: 3:

mitt ($match) = ($html-=~ M {] * (?! size=" \ d+ ") [^>] *> (. *?)}ms); $match-=~ s {( |\ n) +} {} G; tryck $match, ”\ n”;