TableForm[StringSplit[StringSplit[a,"\n"],"$"],TableAlignments -> Center]