#!/usr/bin/perl

open (FH, "classdata.fdb");
while (<FH>) {
	@lines = (@lines, $_);
}
close (FH);

foreach (@lines){
@person = split(/:/,$_);
@person[2] = "";
@newlines = (@newlines, $_);
}

print "@newlines";
