I would just note in passing that whenever you are dealing with single characters, you should use the tr (transliterate) operator rather than the more heavy-duty s/// operator.

To strip out those double quotes, you should say tr/"//d instead.

print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'