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";
Random Solutions  
 
programming4us programming4us