use strict;
use warnings;

foreach my $line (<DATA>) {
    my @cols = unpack("a3a3a3",$line);
    print join(' # ',@cols);
    print "\n";
}

__DATA__
foobarbaz
aaabbbccc
dddeeefff