@results = $str =~ m/>([^<\n]+)</g;