my $font_tag_match = m{
           # Tags in pairs like <foo>content</foo>
           \<
           \s*
              (<font[a-z:\=]>+)
              [
                 \s*<[a-z:]>*
                 \s* = \s*
                 [ ' <[^']>* ' | " <[^"]>* " ]
              ]*
           \s*
           \>

           [ <[^<>]>* | <xml> ]*

           \< \s* / \s* font \s* \>
      }x;

# remove all text that is not between a pair of <font> tags..
$input_data =~ s/^$font_tag_match//mg;

##</code><code>##

# Under Construction