#!/bin/sh -e
for A in "$@"
do
	mv "$A" "A~"
	< "$A~" perl -ne '
			/(#.*?)\s*\$''Log:/ and $log=$1;
			$log and index($_, $log) == -1 and undef $log;
			$log ? print STDERR $_ : print
	' > "$A"
	rm "$A~"
done