#!/bin/sh

for i in *.EPS ;do
tr \\015 \\012 < $i | awk 'BEGIN{ skip=1; }/%!/&&skip{ $0= substr($0, index($0,"%"), length($0)); skip=0;}/%%EOF/{print "%%EOF"; skip=1;}!skip{print}' > zzz
#cat $i | perl -ne 's,\015,\012,g; print $_' > zzz
mv zzz $i
done