The code I use to slice the mail body to fixed length chunks that are forwarded to my GSM phone as SMS messages. Of course, the mail gets filtered first...

$max_len = 140;

use POSIX;

@chunks = unpack("A$max_len" x (ceil(length($message)/$max_len)), $mes
+sage);
[download]