#!/usr/bin/perl -w

#######################################################
# class5_03b_diamond2
#
# demo diamond operator, <>, but ignore blank lines
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-21-03
#######################################################

# echo back what was read in within a message,
# but don't echo back completely blank lines

while (<>)
{
    chomp;
    if (! $_ eq "")
    {
        print "$_ is what was input\n";
    }
}

# end of class5_03_diamond1