[Omaha.pm] Tighter/cleaner way to do this? map { grep {} } ?

[Jay Hannah <jay@jays.net>]

This works. But does anyone have a better solution than my foreach / if 
/ push?

j



$ cat j.pl
my @a = qw(
  junk:gold_17:junk
  junk:junk:junk
  junk:gold_blah9:junk
);
my @b;
foreach (@a) {
  if (/(gold\w+)/) {
     push @b, $1;
  }
}
print join ", ", @b;
print "\n";


$ perl j.pl
gold_17, gold_blah9