my $str = "P H A G E P H A G E P Q K R E P H A G E P W S Q E P H A G E P R D L E P H A G E";

$str =~ s/\s+//g;
my @words = $str =~ /.{1,5}/g;

##</code><code>##

my @array = ('P', 'H', 'A', 'G', 'E', 
             'P', 'H', 'A', 'G', 'E',
             'P', 'Q', 'K', 'R', 'E',
             'P', 'H', 'A', 'G', 'E',
             'P', 'W', 'S', 'Q', 'E',
             'P', 'H', 'A', 'G', 'E',
             'P', 'R', 'D', 'L', 'E',
             'P', 'H', 'A', 'G', 'E');

my @words;
while (@array) {
   push(@words, join('', splice(@array, 0, 5)));
}

##</code><code>##

foreach (@words) {
   next unless $_ eq 'PHAGE';
   print("$_\n");
}