#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

while (<DATA>) {
    chomp;
    my @ar = split(/\|/ => $_);
    s/\\n/\n/g for @ar;
    warn Dumper @ar;
}

__DATA__
1|99999|Here comes \n a new line