Ideone.com

download

copy

#!/usr/bin/perl
# your code goes here
while(<>)
{
	s/[\r\n]/ /g;
	$a.=$_
};
print "$1" while ($a =~ m|<>(.*?)</>|g)

Success #stdin #stdout 0s 6056KB

stdin

copy

<>Оп</>
<>-</>
<>хуй</>

stdout

copy

Оп-хуй

https://ideone.com/2n7SVr

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!