awk -F"|" '{print $4}' file

my @fields = split /\|/, $line;

C:\>perl -ane "print +(split /\|/,$_)[3],qq~\n~" beispiel.txt
4
test
im

1|2|3|4|5|6
dies|ist|ein|test|noch
ein|wort|mit|im|satz

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

GetOptions(
  '-F=s' => \my $delim,
  '-i=n' => \my $index,
);

$delim = " " unless defined $delim;
$index = 1   unless defined $index;

@ARGV = ($ARGV[-1]);

while( <> ){
    chomp;
    print +(split /\Q$delim\E/,$_ )[$index-1],"\n";
}

test.pl -F "|" -i 4 beispiel.txt

,qq~\n~"