#!/bin/csh

foreach i ( *.arc ) 
        mv $i $i.bak 
#	echo "using $* on $i.bak"
        perl -p -e "$*" $i.bak > $i 
	if ($status == 0) then
		rm $i.bak
	else
		mv $i.bak $i
	endif
end