Re: Re: don't get bit by split.

[runrig]

Instead of this:

my @matches = grep { /$pattern/ } @names;

this will get just the indexes:

my @matches = grep { $names[$_] =~ /$pattern/ } 0..$#names;