#!usr/bin/perl

$initial = "qwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnm";
$_= $initial;
$vardivider= 33;
$initiallength= length($initial);
@varformposts= (/(.{$vardivider}|.+$)/g); #THIS IS IT!

print "\nLength: " . $initiallength ." - Division by $vardivider: " . int($initiallength/ $vardivider) . " - Mod: " . $initiallength % $vardivider . "\n";
print join("*\n", @varformposts);

##</code><code>##

#!usr/bin/perl

$initial = "qwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnm";
$_= $initial;
@varformposts= (/(.{33}|.+$)/g); #OH MY! All the job in one single regexp!

print join("*\n", @varformposts);