@fourbytes= unpack("A4" x (length($input)/4), $input);