exit 1
fi
-prog='print if !/^Index:/ && !/^={67}$/ && !/^RCS file:/ && !/^retrieving revision / && !/^diff -/;'
+prog='print if !/^[?]/ && !/^Index:/ && !/^={67}$/ && !/^RCS file:/ && !/^retrieving revision / && !/^diff -/;'
if [ $# -eq 1 ];then
exec perl -ne "$prog" -i "$1"
else