print "Only -+()0..9 allowed!\n" if $str =~ /[^+-()0..9]/;