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