and true to the perl motto, here's yet another (much simpler) way to do it:

@text = $messagebody =~ /(.{1,140}\W)/gms;