#!/usr/bin/perl

use strict;
use warnings;

local $/ = "</Link>\n";
while( my $block = <DATA> ) {
    print $block if $block =~ /Name="WICHTIG/;
}

__DATA__
<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>
<Link Name="AUCHNETT\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>
<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>