# use csh/tcsh !
foreach file ( dr312b/* )
echo $file
(echo '1,$s/
$//'; echo w; echo q) | ed $file
end