my @results = $str =~ /@{[ Re::re() ]}/g;