#!/bin/perl -i.bak

#
# fixup.pl filename [filename...]
#
# Don't Create backup file:
#!/bin/perl -i
# Create backup file:
#!/bin/perl -i.bak

while ( <> ) {
	s/\r/\n/g ;
	s/\cz// ;
	print;
	if (! /\n$/) {
		print "\n";
	}
}
