while (<DATA>) {
    chomp;
    s/\\n/\n/g;           ## Avoiding $_ is sometimes
    my @ar = split /\|/;  ## even more fun than using
    warn Dumper @ar;      ## it. ;P
}