A \!owner (\w+) $owner = $1; open(OWNER_OPEN,"config"); my @temp_OWNER = ; close OWNER_OPEN; open(OWNER_WRITE,">config"); foreach(@temp_OWNER) { if (/\$owner=/) { print OWNER_WRITE "\$owner=\" $owner \";\n"; } else { print OWNER_WRITE "$_"; } } close OWNER_WRITE; print "PRIVMSG $debug :Modificado owner : $owner \n";