#!perl -w

use strict;
my $line;
my $CTLfile = 'y:\perl\test.ctl';
local $^I = '.bak';
open (CTLHANDLE, "+<$CTLfile");
while($line=<CTLHANDLE>){
	$line =~ s/SOURCEREPOSITORYNAME/SOURCEREPOSITORYNAME=Development/g;
	print CTLHANDLE "$line";
}
close(CTLHANDLE);
undef $^I;