my $count;
for(@array) {
    $count +=()= /RE/g;
}