Ideone.com

fork download

#!/usr/bin/perl
my $a='|значение1|значение2\\\\|значение\\ 2.1\|значение 3';
 
print "$_\n" for($a =~ /(?:[^|\\]+|\\.)+/g);

Success #stdin #stdout 0s 17496KB

stdin

Standard input is empty

stdout

значение1
значение2\\
значение\ 2.1\|значение 3

https://ideone.com/O3ULln

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!