print "found\n" if $list =~ m/\bvalue1\b/;