#!/usr/bin/perl -w

# regex.plx

# test regular expression behavior

$string = 'Walnuts are very nutritious.';

if ($string =~ /Walnuts/) {
    print "Match!\n";
} else {
    print "No match!\n";
}