say "+{";
} else { # body
while (/\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g) {
my ($mnem, $chr, $cp) = ($1, $2, $3);
$mnem =~ s/(?=[\\}])/\\/g; # escape string delimiter
say "+{";
} else { # body
while (/\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g) {
my ($mnem, $chr, $cp) = ($1, $2, $3);
$mnem =~ s/(?=[\\}])/\\/g; # escape string delimiter