#!/usr/bin/perl
my $a='|значение1|значение2\\\\|значение\\ 2.1\|значение 3';
print $a,"\n";
print join( "\n", split(/(?:[^\\]|[^\\](?:\\{2})+|^)\K\|/,$a));