my @results;

while (<>) {
  if (/^N\d+\s+\*(.*)/) {
    push @results, "!$1";
  } else {
    push @results, /[XYZ]([-+]*[\d\.]+)/g;
  }
}
print join ' ',@results;