my @results = map { m/good stuff/ ? do { ... } : () } @array;

##</code><code>##

my @results = map sub { return () unless m/good stuff/; ... }, @array;

##</code><code>##

my @results = map { ... } grep { m/good stuff/ } @array;