Help for this page
Select Code to Download
Select
or
download this
... my $count = grep { -1 != index $test, $_ } @wanted; ...