#!/usr/bin/perl

$wert= <STDIN>;

$gefunden = 0;

open(LESEN,"<Quelle.dat") or scripterror("Fehler: Kann Quelle.dat nicht oeffnen!",$!);
while ($linie = <LESEN>) {
chomp($linie);

($Kennzeichen,$Farbe,$Marke,$Halter) = split(/|/, $linie);

if ($wert eq $Kennzeichen or $Farbe or $Marke or $Halter ) {

$gefunden = 1;
last;
}
}
close(LESEN);

if (!$gefunden) {
print "Nicht gefunden!!!";
exit;
} else {
    print "$Kennzeichen\n";
    print "$Halter\n";
    print "$Marke\n";
    print "$Farbe\n";
}