my $x=1;
foreach(@arr){print  $x++ if (/foo/)}

##</code><code>##

my $str=join ' ',@arr;

##</code><code>##

$str=~ /foo/;

##</code><code>##

print $&; #### In place of $&; we can use that for no
          #### for no. of matches.