Please post a description of the problem you are having.

You may want to try the Perl Power Tools grep.

TGI says moo