http://www.perlmonks.org?node_id=250127


in reply to Making a match

#!/usr/bin/perl my $x = 14; my @ary=(10,11,12,13,14); map{print "$x matches\n" if /^$x$/} @ary; is nice to look at :)

In Section Seekers of Perl Wisdom