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