if(  $equ =~ m#[^-\s\d+*/()]#  ) {
    # refuse to use it