my %replace = (); $text = ''; my ($name, $value) = (); while (($name, $value) = each %FORM) { $replace{$name} = $value; next if ($name =~ m!^(shared|genesis_system)_!); next if (($name eq 'Action') or ($name eq 'Template') or ($name eq 'CWD') or ($name eq 'web_auth_cp')); $text .= &ue($name) . '=' . &ue($value) . "\n"; } &_load_system_values( \%replace, $FORM{'Template'} );