Select Code to Download

#!usr/bin/perl

...

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

#!usr/bin/perl

...
@varformposts= (/(.{33}|.+$)/g); #OH MY! All the job in one single reg
+exp!

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