use strict;
use warnings;

my $text="<tr><td>1</td><td>2</td><td>qw<font>3</font></td><td>4</td><tr>";
my @blocks = split /<td>(.*?)<\/td>/, $text;
foreach my $block (@blocks) {
    if($block =~ /3/) {
        print $block."\n";
    }
}

##</code><code>##

qw<font>3</font>