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