$line =~ / ^s\s # am anfang immer ein s + space # in der mitte kann einer der folgenden ausdrücke stehen, # jeweils gefolgt von space, in genau dieser reihenfolge (Exit)?\s* (Fast)?\s* (Guard)?\s* (Stable)?\s* (Running)?\s* (V2Dir)?\s* Valid$ # am ende immer Valid /x; # oder kurz: $line =~ /^s\s(Exit)?\s*(Fast)?\s*(Guard)?\s*(Stable)?\s*(Running)?\s*(V2Dir)?\s*Valid$/