my $string = "EMARTQKNKATSAHLGLLKANVAKLRRELISPKGG";
my @array = ( $string =~ m/(.{5})/g );
print join "\n", @array;