10 egrep -l '^(#|\.\\"|/\*)[[:space:]]+\$FreeBSD[:\$]' $f >>keywords
11 egrep -l '__RCSID\("\$FreeBSD[:\$]' $f >>rcsid
13 sort -u keywords rcsid | xargs perl -n -i -e '
14 $strip = $ARGV if /\$(Id|OpenBSD):.*\$/;
15 print unless (($strip eq $ARGV || /__RCSID/) && /\$FreeBSD[:\$]/);