http://qs321.pair.com?node_id=575663


in reply to Best way to get all of the matches?

Here is an example that demonstrates how I would approach something like this:
cat foo.txt fred barney betty wilma dino george jane elmo judy #!/usr/bin/perl -wl use strict; # Pull out all those words containg the letter e my $file = 'foo.txt'; open my $fh, '<', $file or die "Cannot open $file:$!"; my @matches; while (my $line = <$fh>) { chomp($line); my @wanted = $line =~ m/\b(\w*?e\w*?)\b/g; push @matches, @wanted; } print for @matches;
Which prints..
fred barney betty george jane elmo

Hope this heps,
Darren :)