#!/usr/local/bin/perl

#
print "firstname,lastname,organization,city,state,country,age\n";
while (<STDIN>) {
  chomp;
  s/
//g;
  my @parts = split /	/;
  my $count = scalar @parts;
  for( my $i = 0; $i < $count; $i++ ) {
	if( length( $parts[$i] ) < 1 ) {
	  $parts[$i] = ' ';
	}
  }
  # Add the date
  my $t = time();
  push @parts, $t;
  my $line = join "|", @parts;
  print "|", $line, "|\n";
}