#!/usr/bin/perl -w
use strict;
{
    my @items = qw/The three principal virtues of a programmer are Laziness, Impatience, and Hubris. See the Camel Book for why/;
    for (@items) {
	/^[A-Z]/ && do {
	    print "Found a proper noun?  $_\n";
	    next;
	};

	/[,.]/ && do {
	    print "This word has punctuation:  $_\n";
	    next;
	};

	print "This word seems uninteresting:  $_\n";
    }
}