my $start = q{<font\s+face='arial,helvetica'\s+size='-2'>&nbsp;};
my $end = q{</font></td>};
my @list;
{
	local $\ = "";	# file slurping mode
	my $filecontents = <>;  # take in the whole file

	@list = ($filecontents =~ /$start(.*?)$end/sg);
}
print "\n\n\nDOODAH: @list\n";