do {  
    local $/=undef;
    $_=<DATA>;
    ~s~\n\|~\|~g;
    print;
}