while (<INPUT>) {
    my @fields = split /\|/ , $_;
    #Do stuff with particular field
}