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

Careful: this will strip spaces of the end of each string. Use "a4" instead of "A4" as a template to prevent that.