use strict;
use warnings;

my $s="whatever your string looks like";
my @b = $s =~ /.{6}/g;
push @b, substr($s,  - (6 - int(length($s)/6) ) );

$\="\n";
print foreach @b;