You should look up substr. (Update: choroba put a more detailed explanation while I was writing this, so see below)
Alternatively, in the spirit of TMTOWDI, you also could adopt the following algorithm
- split the words into an array characters
- terminate if less than 4 chars in array
- print the first 4 characters on the array
- remove (shift the first character off the array
- go back to 2)
my $word = 'ABCDEFGH';
my @word = split //, $word;
my $pos = 1;
while (scalar(@word) >= 4) {
print @word[0..3]."==> starting at $pos";
shift @word;
$pos++;
}
A Monk aims to give answers to those who have none, and to learn from those who know more.