#!C:\Program Files\Perl\bin\perl.exe -w
#2003-06-11, Jarle Ebeling
#copies all xml files starting with c(omposite) in the current folder into one big file

use strict;

my $compall = "";

opendir(HERE, '.');
my @alldirs = readdir(HERE);
closedir(HERE);
foreach my $filename (@alldirs)
{
	if (-d $filename)
	{
	}
	elsif ($filename =~ /\.png$/)
	{
#		if ($filename =~ /\@h/)
#		{
#			print "$filename\n";
#		}
		&change_name($filename, "C", "SH");
	}
}

exit;

sub change_name
{
	my $name = shift(@_);
	my $lookfor = shift(@_);
	my $change = shift(@_);
	
	my $newname = $name;
	$newname =~ s/URTWO/UR2/g;
	rename($name, $newname);
}
