print ";$_";
@_=split(' ',$2);
print "\tFCB\t\$".join(', $',@_)."\n";
-
-# print "\tFCB\t\$$3, \$$5, \$$7, \$$9\n";
next LINE;
}
-# if (/^([A-F0-9]{4}) (([A-F0-9]{2}) )(([A-F0-9]{2}) )(([A-F0-9]{2}) )/) {
-# print ";$_";
-# print "\tFCB\t\$$3, \$$5, \$$7\n";
-# next LINE;
-# }
-# if (/^([A-F0-9]{4}) (([A-F0-9]{2}) )(([A-F0-9]{2}) )/) {
-# print ";$_";
-# print "\tFCB\t\$$3, \$$5\n";
-# next LINE;
-# }
-# if (/^([A-F0-9]{4}) ([A-F0-9]{2})/) {
-# print ";$_";
-# print "\tFCB\t\$$2\n";
-# next LINE;
-# }
if (/^\cZ$/) { next LINE; }
print ";$_";
}