use strict;
use warnings;

my $str = "computer";
my @parts = $str =~ /(?=(...))/g;

print "@parts";

##</code><code>##

com omp mpu put ute ter