while (defined(<>))
	{
		chomp $_;
		($name,$status,$class,$major,$po,$phone,$advisor,$email)=    /(\w+).*(\w+)\W\W*(\w+)\W\W*(\w+)\W\W*(\w+)\W\W*(\w+)\W\W*(\w+)\W\W+(\w+)\W+/;	
		print "$name\n";
		write OUTPUT;
	}
	close (OUTPUT) || die "cant close $!";