ls -1 /var/db/pkg/bsdpan-*/+CONTENTS | perl \ -ne 'while (<>) { my $filename = $_; \ open( CUR, "<" . $filename); my $origin_p; \ for () { $origin_p++ if m/ORIGIN/; } \ print $filename unless $origin_p}'