binmode (STDIN);
local $/ = undef;

while (read (STDIN, $record, 1468)) {
    my $parsed = &decode_record ($record);
    print_record ($parsed);
}