in reply to Re^2: Need RegExp help - doing an AND match
in thread Need RegExp help - doing an AND match

The List::Util module has a first function which may be what you want here instead of grep.