See How (Not) To Ask A Question, but (completely off the wall guess here) perhaps you want to grep over the indexen rather than the array itself?

my @array = qw( foo bar baz quux );
my @idx_of_eles_with_an_a = grep $array[ $_ ] =~ /a/, 0..$#array;
[download]

#!/usr/bin/perl

use strict;
use warnings;

my @items = qw/yes no no no yes yes no no/;
my $number_of_matches = grep(/yes/,@items);

print "$number_of_matches\n";
[download]

Prints 3.

Update: Noticed that I left out @items, and I see I am not alone in my confusion about exactly what it was the OP wanted.

$ perl -le '
> $str = q{adasdGTsaJsdfsCFwee};
> $capsCt = @caps = $str =~ m{([A-Z]+)};
> print qq{Found: $capsCt};
> print for @caps;'
[download]

produces

Found: 3
GT
J
CF
[download]

I hope this is helpful.

Cheers,

JohnGG

may be somebody can give me some hint?

Please give an example:

• Some data that you want to search;
• a pattern you might search for;
• the output you desire.

This recent entry might be helpful as well...

Re: How can I access the number of repititions in a regex?

while (/.../g) {
   print("Matched ", substr($var, $-[0], $+[0] - $-[0]), " at pos $-[0
+]\n");
}
[download]

I am the one who ask the question in rush, Thanks all of you answer this poorly organized question. After certain period of time and read the reply, I think I prefer something like this....

my @match = grep { $_ =~ /($pattern)/ ;  $hash{$_}{$pattern} = no_of_o
+ccurance_of_regex; } @inputs;
[download]

So I wil get a hash with the thing I want. Does it possible in grep?