return $scores;
}
+sub dec_str2phred_str
+{
+ # Martin A. Hansen, November 2013.
+
+ # Converts a ; separated string of decimal scores to a
+ # string of Phred scores.
+
+ my ( $scores, # Decimal score string
+ ) = @_;
+
+ # Returns a string.
+
+ $scores =~ s/(-\d{1,2})/0/g;
+ $scores =~ s/(\d{1,2});?/dec2phred( $1 )/eg;
+
+ return $scores;
+}
sub get_entry
{