my $foo = ($text =~ m!<TD nowrap>([^<]*)</TD>!g)[12];