Question : what would be the regex for the following pattern in perl?

I have the following text in html format, using perl regex how can I parse it and print

"Perl is very beautiful"

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

<span class="body"> <font face="Times New Roman" size="4"> &#9787;</font></span><font face="Times New Roman">Perl is<br> very<br> beautiful<br> </font>

Answer : what would be the regex for the following pattern in perl?

Unless I made a typo, this will get what you want.

1: 2: 3:

my ($match) = ($html =~ m{<font[^>]*(?!size="\d+")[^>]*>(.*?)</font>}ms); $match =~ s{(<br>|\n)+}{ }g; print $match, "\n";