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