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;

##</code><code>##

D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 444912
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 966656
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 190994
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 194417
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 916765
D:\minibuild\nbsssbs\appl\src\erlmtrihm.cxx 955515

##</code><code>##

perl -e '$,=" ";while (<>) {print ((split "~", $_)[0,3],"\n") if (/~/)}'<infile >outfile

##</code><code>##

perl -aF/~/ -ne '$,=" ";print (@F[0,3],"\n") if /~/' infile >outfile