while (<STDIN>) {
	push @submission, $_;
}
foreach $line (@submission) {
	push $line, @header;
        if ($line =~ /^$/) {
	       last;
	}
}
foreach(@header) {
		if ($_ =~ /from/i) {
			($from, $email) = split(/:/, $_);
		}		
	}