#!/usr/bin/perl -w
$file = "in.txt";
open (FILE, "$file");
my @results;
       while (<FILE>) {
         if (/^N\d+\s+\*(.*)/) {
           push @results, "!$1";
         } else {
           push @results, /[ABC]([-+]*[\d\.]+)/g;
         }
       }
       print join ' ',@results;