{ my( $commands, $matches ) ; ( $_, $commands, $matches ) = sanitize_and_then_some_commands_matches( $_, \@METACHARS,\@TRANSLATIONS ); $DATA{$IP}->{COMMANDS} = $commands; $DATA{$IP}->{MATCHES} = $matches; }