elsif ($befehl =~ /^[1-4]$/)
    {
        print "ok";
    }