#!/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|