#!/usr/bin/perl

open(FOO, "echo *.c | " .
	"tr -s ' \t\r\f' '\\012\\012\\012\\012'|");
while (<FOO>) {
	chop;
	chmod 0644, $_;
}
