#!/usr/bin/perl
use strict;
use warnings;
my $maxlen = 60;
my $finalbuffer = undef;
print "Check the no of characters in each smstext \n";
die "Pls supply SMS Text as Argument\n" if ( $#ARGV < 0 );

my $smstext = $ARGV[0];
if ( length($smstext) > $maxlen ){
                $finalbuffer=subdivide($smstext,60);
}
print $finalbuffer,"\n";

# This will divide into chunks of 70 characters each
sub subdivide {
    my ($s, $n) = @_ ;
    $s =~ s/\G(.{$n})(?!\Z)/$1\n/g ;
    return $s ;
  } ;


# Another method
print join "\n", unpack("(a59)*", $smstext),"\n";