$_ = 'this has a | pipe';
    @a = split /\|/;           # good
    print join(":", @a),"\n"; 
    @a = split "\|";           # oops
    print join(":", @a),"\n";