#!perl -w

use strict;
my $line;
my @array;
my $CTLfile = 'y:\perl\test.ctl';
open (CTLHANDLE, "<$CTLfile");
@array = <CTLHANDLE>;
close(CTLHANDLE);
open (CTLHANDLE, ">$CTLfile");
foreach $line(@array){
	$line =~ s/SOURCEREPOSITORYNAME/SOURCEREPOSITORYNAME=Development/g;
	print CTLHANDLE "$line";
}
close(CTLHANDLE);