my @lines = unpack ("W*", ); #### local $/;