my $re = Re::re();
    my @results = $str =~ /$re/g;