/(.{4})/g does the job:
perl -e '@a = "AR12CR32LC85AR16" =~ /(.{4})/g; print join(" ", @a)' AR12 CR32 LC85 AR16 [download]
In reply to Re: Reg Exp Help by fglock in thread Reg Exp Help by Anonymous Monk