use strict;
open (INFILE, "<infile") or die "could not open file";
open (OUTFILE, ">outfile") or die "could not open file";
<INFILE>; # dump the header on the first line
while (<INFILE>) {
	print OUTFILE join(" ", (split "~", $_)[0,3]), "\n";
}
close INFILE;
close OUTFILE;