You must escape double quotes or use the single one. So you can use one of

print STDOUT "<FONT COLOR=\"red\"> $data </FONT><P>";

print STDOUT "<FONT COLOR='red'> $data </FONT><P>";


print STDOUT << "EODATA";
<FONT COLOR="red"> $data </FONT><P>
EODATA
[download]