my $wanted;
my $text = 'tenpixblack">TEXT To GET.</td>';
($wanted) = $text =~ /(?<=">)([^<]*?)</;