my $newUser ='dummy';
while(<SETORA>)
{
	print "read from file: [$_]\n";
	if (/O_PREFIX=/) {
		print "regexp matched\n";
		s/O_PREFIX=\w+/O_PREFIX=$newUser/;
		print "after s, [$_]\n";
		print outputfile 
	}
}