note
poj
<p>You need to provide a value to [doc://printf] for example
<c>
printf $out_file "string length = %d\n",length($num) ;
</c>
but that gives you the length of the count value not the sequence.
You need to calculate the sequence length before the value is changed by this counting regex
<c>$para =~ s/([A-Z])/ ++$prot{ $1 } /eg;</c></p>
<p>Try making these changes</P>
<c>
# Remove comment line(s) and white space
$para =~ s/^\s*#.*//mg;
$para =~ s/\s//g; # add
my $seq_length = length($para); # add
print "[$para]\n"; # optional
.
.
printf $out_file "Number of proteins = %d\n",$num ;
printf $out_file "String length = %d\n\n",$seq_length; # add
</c>
poj
1230333
11107499