#!/usr/local/bin/perl -w

# Does not check to see if a peak already has an intensity. It could, but then
# on the other hand it ought to operate on a cpd rather than on a Felix peaks
# file.

print scalar(<>), scalar(<>);

while (<>) {
    $x = substr($_, 34, 16);
    unless ($x =~ /^(ambi|junk|null)/) {
	$x =~ s/\s*$/'w' . (' ' x ((length $&) - 1))/e;
	substr($_, 34, 16) = $x;
    }   	
    print;
}