or download this
my $smstext = "This sentence will have more than 120 characters and i
+want to truncate this string into two lines containing 60 characters
+each and ignore characters above 140 in length" ;
use Text::Wrap;
...
Output:
This sentence will have more than 120 characters and i want
to truncate this string into two lines containing 60