my @entries = split "", $record;
    if ($record[0] eq 'FRAG') {
        warn "File is $record[8]";
        $record[8] =~ /([^\\+])$/
            or die "Malformed file entry: '$record[8]'";
        warn "Basename is '$1'";
    };