my $scalar = list function();

##</code><code>##

my $n = () = $string =~ m/(pattern)/g;

##</code><code>##

my @useless = $string =~ m/(pattern)/g;
my $n = @useless;

##</code><code>##

my $n = list $string =~ m/(pattern)/g;