- my $symbol = $status_symbol ? "${status_symbol} " : '';
- push @out, "${date} ${symbol}${payee} ; $memo";
- $out[-1] =~ s/\h+$//;
+ $payee =~ s/(?: )|\t;/ ;/g; # don't turn into a memo
+
+ push @out, sprintf('%s%s%s%s', $date,
+ $status_symbol && " ${status_symbol}",
+ $payee && " $payee",
+ $memo && " ; $memo",
+ );