local $/ = "|";   # set input record separator

while (<>) {
    print $_, scalar <>, scalar <>, "\n";
}