use strict;
use warnings;

my $string = q{MKTVEQTSPTMTSEKARWIYQKMVEIRMFEDRVHDIFSKGEIPGFVHLYAGEEAIAVGLCAHLDHNDYITSTHRGHGHCIAKGCELDGMMAEIYGKSTGLCKGKGGSMHIADLDRGMLGANGIVGGGFTLAAGAALTAKFKQTGGVAVCFFGDGANNQGTFHEGINLAAIWDLPVVFVAENNGYGEATPFHYASACEQITDRAKGYNIPGVKVDGKDVVAVYEVAREAVERARRGEGPTLIECITYRNYGHFEGDAQTYKTGREKEEHTEERDAITLFEKYALSNNLLTEEAIQTVRHEVEQSVDRAVDFANASDYPQPEELLTDVYVSYDHEGRNG};

my $newString = q{};
my $count     = 0;

while (length $string >= 10)
{
    $count += 10;
    $newString .= substr $string, 0, 10, q{};
    $newString .=
       $count % 50
       ? q{ }
       : qq{\n};
}

$newString .= qq{$string\n};
print $newString;