for($i = 0; $i < @lines; $i++){ print"$lines[$i]"; if($lines[$i] =~ /(.*<\/SW-SYSCOND>)/gi) { print"geklappt";