my $newUser ='dummy';
while(<SETORA>)
{
s/O_PREFIX=\w+/O_PREFIX=$newUser/ if /O_PREFIX=/;
print outputfile
}