$record->{ 'ISIZE' } = $entry->[ ISIZE ];
$record->{ 'SEQ' } = $entry->[ SEQ ];
$record->{ 'SCORES' } = $entry->[ QUAL ];
+ $record->{ 'SCORES' } =~ s/(.)/chr( ( ord( $1 ) - 33 ) + 64 )/ge; # convert phred-33 to phred-64 scores
$record->{ 'SCORE' } = sprintf( "%.2f", Maasha::Fastq::phred_str_mean( $entry->[ QUAL ] ) );
$record->{ 'S_BEG' } -= 1 if $record->{ 'S_BEG' } != 0;