Help for this page
Select Code to Download
Select
or
download this
print "found\n" if $list =~ m/\bvalue1\b/;