/(.{4})/g does the job:

perl -e '@a = "AR12CR32LC85AR16" =~ /(.{4})/g; print join(" ", @a)'

AR12 CR32 LC85 AR16
[download]