Select Code to Download

my $str = 'AR12CR32LC85AR16' ;
my @arr = map { /(.{4})/g } $str ;
print "@arr\n" ;