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