$data =~ s/(\d+)/<font color=\"#ff0000\">$1<\/font>/gi