Dit is een voorbeeldtekst
The quick brown fox jumps over the lazy dog.
SOURCEREPOSITORYNAME
Roses are red, violets are blue
And Osama Is coming To Kill you


##</code><code>##

Dit is een voorbeeldtekst
The quick brown fox jumps over the lazy dog.
SOURCEREPOSITORYNAME=Development
Roses are red, violets are blue
And Osama Is coming To Kill you


##</code><code>##

#!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;

##</code><code>##

Dit is een voorbeeldtekst
The quick brown fox jumps over the lazy dog.
SOURCEREPOSITORYNAME
Roses are red, violets are blue
And Osama Is coming To Kill youDit is een voorbeeldtekst
Dit is een voorbeeldtekst
ver the lazy dog.
ver the lazy dog.
E
E
es are red, violets are blue
es are red, violets are blue
uu