if(!@ARGV) {
	print <<"EOC";
Usage: reformat.exe -b files

	[-b] 	: include this flag if you would like to automatically
		  backup all files being reformatted

	[files]	: files to reformat
EOC
	sleep;
}

@f = @ARGV;

if($ARGV[0] eq '-b') {
	$b = 1;
	shift(@ARGV);
} else {
	$b = 0;
}

foreach $f (@f) {
	$f =~ s/\\/\//g;

	open(FILE,"$f");
	@file = <FILE>;
	close(FILE);

	if($b) {
		open(BKUP,">$f.bak");
		foreach $i (@file) {print BKUP $i}
		close(BKUP);
	}

	foreach (@file) {chomp}

	$file = join("\n",@file);

	$r = chr(13);
	$n = chr(10);

	$file =~ s/$r/$n/g;

	open(FILE,">$f");
	print FILE $file;
	close(FILE);
}