#!/bin/sh

recollq -A "$@" 2>/dev/null | perl -ne '
    if (/^ABSTRACT/../^\/ABSTRACT/) {
        print "\t$_" unless /^.?ABSTRACT/;
        next;
    };
    next unless /^(.*)\t\[file:\/\/(.*)\]\t\[.*\]\t\d+\t.*\t.*$/;
    print "$2\t$1\n";
' | spc -e grn,"(^/.*)"