while ($s =~ /(.*?)\|(.*?)\|(.*?)\|/g) {
    print "$1\t$2\t$3\n";
}

##</code><code>##

while ($s =~ /((?:.*?\|){3})/g) {
    print "$1\n";
}

##</code><code>##

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

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

##</code><code>##

local $/ = "|";

while (<>) {
    print;
    print "\n" unless $. % 3;
}