#!/usr/local/bin/perl

open (FILE,"<resisters");
#
print "firstname,lastname,organization,city,state,country,age\n";
while (<FILE>) {
    chomp;
	$l = $_;
	$l =~ s/\|/,/g;
#	@f = split("\|", $_);
	@f = split(",", $l);
#    print "$l\n";
	print "$f[1],$f[2],$f[3],$f[6],$f[7],$f[9],$f[10]\n";
  }