[perl] trying to remove text from string using =~ s/

[FcukThisGame]

Trying to strip a block of HTML code from an email body string (before it goes into a database)

It starts with a <font face='monospace'> tag and ends at the end of the string.

I'm trying to formulate the code I need to accomplish this

should be something like

Code: Select all

$text =~ s/<font face='monospace'>...$//g;

How do I tell perl to find a string starting at the <font> tag and ending at the end of the string?

EDIT: if it's easier it can start at <font> and end at </font>

Thanks

[marens]

try
=~ s/<font .*$//;