my ($number13) = $text =~ /(?:<TD nowrap>(.*?)</TD>\n){13}/;