in reply to Concise foreach expression

m/test$/ && print "$path_name\n" for @names;

[download]

Dave

In Section Seekers of Perl Wisdom