cat beispiel.txt | perl -ne "print +(split /\|/,$_)[3],qq~\n~"