Select Code to Download

printf $out_file "string length = %d\n",length($num) ;

    # Remove comment line(s) and white space
    $para =~ s/^\s*#.*//mg;
...
    printf $out_file "Number of proteins = %d\n",$num ;
    printf $out_file "String length = %d\n\n",$seq_length; # add