>perl -wMstrict -MData::Dumper -le
"my $width = shift;
 my @t = 'abcdefghijklmno' =~ /.{1,$width}/g;
 print Dumper \@t;
"  4
$VAR1 = [
          'abcd',
          'efgh',
          'ijkl',
          'mno'
        ];

>perl -wMstrict -MData::Dumper -le
"my $width = shift;
 my @t = 'abcdefghijklmno' =~ /.{1,$width}/g;
 print Dumper \@t;
"  3
$VAR1 = [
          'abc',
          'def',
          'ghi',
          'jkl',
          'mno'
        ];

>perl -wMstrict -MData::Dumper -le
"my $width = shift;
 my @t = 'abcdefghijklmno' =~ /.{1,$width}/g;
 print Dumper \@t;
"  2
$VAR1 = [
          'ab',
          'cd',
          'ef',
          'gh',
          'ij',
          'kl',
          'mn',
          'o'
        ];