my @array = ( 'opt v Tor 0.1.1.26',
'r onetwothreefourfive MWMcc5Y1q5S8tX0qev1HXXh+tPQ aicBxdn2WwR33fA9aBcO2KzaLJU 2007-08-04 04:15:06 68.89.251.22 9001 0',
's Exit Running Valid',
's Exit Fast Running Valid',
's Exit Fast Running Valid',
's Exit Running Valid',
's Exit Fast Guard Stable Running Valid',
's Valid',
's Exit Fast Running V2Dir Valid',
's Exit Fast Guard Stable Running Valid',
's Exit Fast Stable Running Valid',
's Fast Guard Stable Running V2Dir Valid',
's Exit Fast Guard Stable Running V2Dir Valid',
's Fast Guard Stable Running V2Dir Valid',
);

for my $line ( @array ){
    if( $line =~ /^r\s\w+/ ){
        print " Eine Zeile nach Muster 'Zeile 1'\n";
    }
    elsif( $line =~ /^opt v \w+ (?:\d+\.){3}\d+ ){
        print " Das wird eine Zeile vom Typ 'Zeile 3' sein\n";
    }
    elsif( $line =~ /^s\s(?:Exit|Fast)?[\w\s]+Valid$/{
       print "Typ 'Zeile 2'\n";
    }
}