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