fork download
copy 
  1. #!/usr/bin/perl
  2. while(<>){
  3. 	s/(\d<\d<\d)<(\d)/$1\n$2/;
  4. 	print;
  5. }
Success #stdin #stdout 0s 4984KB
comments (?)
stdin
copy 
1<5<6<4
2<6<9<8
3<8<5<2
stdout
copy 
1<5<6
4
2<6<9
8
3<8<5
2
https://ideone.com/4rZR61
language:
Perl (perl 5.28.1)
created:
3 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

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