8 find . -type f -name '*.[1-9ch]' | cut -c 3- | \
10 svn proplist -v $f | grep -q 'FreeBSD=%H' || continue
11 egrep -l '/\* \$FreeBSD[:\$]' $f >>keywords
12 egrep -l '__RCSID\("\$FreeBSD[:\$]' $f >>rcsid
14 sort -u keywords rcsid | xargs perl -n -i -e '
15 $strip = $ARGV if /\$(Id|OpenBSD):.*\$/;
16 print unless (($strip eq $ARGV || /__RCSID/) && /\$FreeBSD[:\$]/);