my $subject = "sdfsdfasdfaskjhasdkhdglkjhsdgkljhdgfkjhdasfjhkljsdahgklsjgkajshgfkaljdghdalkhj etc";
my $maxsize=125;

push(@parts, substr($subject, 0, $maxsize, '')) while length $subject;