# perl script to rename files
chdir "CrowCreekBurnUnit14";
@list = `dir`;
$i=0;
while ($i<=$#list) {
	$line = $list[$i++];
	print $i+1, ": ", $line;
	if ( $line =~ /IMGP.*JPG/ ) {
		$filename = $&;
		$newname = $filename;
		$newname =~ s/P/_unit14_/;
		print "changing '$filename' to '$newname'\n";
		@args = ("ren", $filename, $newname);
		system(@args) == 0
      			or die "system @args failed: $?"
	}		
}