#!/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";
}

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

#vergelichswert abfragen
print "Wert eingeben: ";
chomp(my $input = <STDIN>);

#datei druchlaufen
my @result;
while (local $_ = <DATA>) {
  my @parts = split /\|/; #aufspalten der einzelzeile
  if (grep {$_ eq $input} @parts) { #vegleich v. input mit einzelteilen d. zeile
    push @result, @parts; #ergebnis bei match hinzufuegen
  }
}

print Dumper @result; #ausgabe

__DATA__
KN P 5612|rot|Opel|Hans Spiddel|
FN KT 2|gruen|VW|Michael Kohlhaas|
VS RT 926|rot|Opel|Peter Pan|

 while (local $_ = <DATA>) { ... 

 while (<DATA>) { ... 

rbaecker@test ~ $ vi local.pl
#!/usr/bin/perl

use strict;
use warnings;

$_ = 'hallo';

print;

while( <DATA> ){ chomp }

print;

__END__
test
rbaecker@test ~ $ perl local.pl
Use of uninitialized value in print at local.pl line 12, <DATA> line 2.
hallo

rbaecker@test ~ $ vi local.pl
#!/usr/bin/perl

use strict;
use warnings;

$_ = 'hallo';

print;

while( local $_ = <DATA> ){ chomp }

print;

__END__
test
rbaecker@test ~ $ perl local.pl
hallohallo

    my $fh = new FileHandle;
    if ($fh->open("< file")) {
        print <$fh>;
        $fh->close();
    }

#!/usr/bin/perl

use strict;
use warnings;

$_ = 'hallo';

while( local $_ =  <DATA> ){ chomp }

require MyTest;

print;

__END__
test

package MyTest;

$_ = 123;

123