Trying format for output

Trying_printing.pl

use strict;
use warnings;

my $n_missed_cleavages = 0;
my @proteins = qw(
    DAAAAATTLTTTAMTTTTTTCKMMFRPPPPPGGGGGGGGGGGG
    ALTAMCMNVWEITYHKGSDVNRRASFAQPPPQPPPPLLAIKPASDASD
    DAAAAATTLTTTAMTTTTTTCK
    );

my $n_proteins = scalar @proteins;
print "Processing $n_proteins proteins\n";

for my $i (0..$#proteins) {
    my $printed_i = $i+1;
    print "Protein: $printed_i\n";
    my $protein = $proteins[$i];
    my @peptides = split /(?<=[KR])(?!P)/, $protein;
    my $j;
    print scalar @peptides . " peptides for protein $printed_i\n";
    for my $j (0..$#peptides) {
        my $printed_j = $j+1;
        print "> Protein: $printed_i|Peptide:$printed_j| $n_missed_cleavages cleavages\n";
        print "$peptides[$j]\n";
    }
}