#!/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                                                             #
#                                                                           #
#############################################################################

$name  = "";
$addr1 = "";
$addr2 = "";

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

	if ( $line =~ /^[a-z ]*$/i )
	{
		$name = $line;
	}
	elsif ( $line =~ /^[0-9]/ )
	{
		$addr1 = $line;
	}
	elsif ( $line =~ /,/ )
	{
		$addr2 = $line;
	}

	if ( ($name ne "") && ($addr1 ne "") && ($addr2 ne "") )
	{
		print "$name\t$addr1\t$addr2\n";
		$name  = "";
		$addr1 = "";
		$addr2 = "";
	}
}