while (<DATA>) {
    if (/START/ .. /ENDE/ ) {
        $set{$1} = $2 if /^(.*)\|(.*)\|.*$/;
    }
}