#!/usr/bin/perl  

use warnings;
use strict;
use 5.12.4;

my $word="ABCDEFGHIJKLMNO";

## Determining the number of 4-letter Fragments:

my $frag_Num = int (length($word)/4);

say "Total Fragments= $frag_Num\n";
say "The 4-Letter Fragments are:\n";

my @newarray;
my $frag = 0;

while ($word =~ /(.{4}?)/igs) {    
    $frag++;
    my $pos=$-[0]+1;
    my $leng=length($&);

    print "Fragment Number: $frag; Fragment: $&\n";
    print "Length: $leng; Starting Position: $pos\n\n"; 

    my $newlist=$leng;
    push @newarray, $newlist;
}

print"\n Newarray (should be 4 4 4): @newarray\n\n";

exit;