&tuwas() if ($rein =~ m#[+|-|*|/]#);