my $offs = 0; while (my $fm= substr($DNA1, $offs, 4)) { $offs += 4; ... }