Select Code to Download

    my $scalar = list function();

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

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

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