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