Select Code to Download

use strict;
use warnings;
...
my @parts = $str =~ /(?=(...))/g;

print "@parts";

com omp mpu put ute ter