my @parts = map { substr $str, $_, 3 } 0..length($str)-3;