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