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