$max_len = 140;

use POSIX;

@chunks = unpack("A$max_len" x (ceil(length($message)/$max_len)), $message);