#!/usr/local/apps/perl/bin/perl
#############################################################################
#                                                                           #
#  WHO:    John L. Moreland                                                 #
#                                                                           #
#  WHAT:   pat                                                              #
#                                                                           #
#  WHY:    Pattern matching exercise.                                       #
#                                                                           #
#  WHERE:  Opus Software                                                    #
#                                                                           #
#  WHEN:   Wed Sep  9 17:32:49 PDT 1998                                     #
#                                                                           #
#  HOW:    PERL                                                             #
#                                                                           #
#############################################################################

while ( chop( $line = <STDIN> ) )
{
	next if ( $line eq "" );
	next if ( $line =~ /^#/ );

	print "$line\n";
}