my @spalten = split /\s+/; # Annahme: die Spalten enthalten selbst keine Leerzeichen, Tabs etc. next unless @spalten > 1; # Die beiden "Suchstellen" sollen nicht verarbeitet werden. print "$spalten[1] | $spalten[2]\n"; # Auf einzelne Spalteninhalte zugreifen.