fork download
copy 
  1. #!/usr/bin/perl -n0
  2. use 5.010;
  3. for$x(g,o,p,r){say;s/$x/ /&&redo}
Success #stdin #stdout 0s 6056KB
comments (?)
stdin
copy 
 org 
prgrg
gggpr
oyyor
 r p
stdout
copy 
 org 
prgrg
gggpr
oyyor
 r p 
 or  
prgrg
gggpr
oyyor
 r p 
 or  
pr rg
gggpr
oyyor
 r p 
 or  
pr r 
gggpr
oyyor
 r p 
 or  
pr r 
 ggpr
oyyor
 r p 
 or  
pr r 
  gpr
oyyor
 r p 
 or  
pr r 
   pr
oyyor
 r p 
 or  
pr r 
   pr
oyyor
 r p 
  r  
pr r 
   pr
oyyor
 r p 
  r  
pr r 
   pr
 yyor
 r p 
  r  
pr r 
   pr
 yy r
 r p 
  r  
pr r 
   pr
 yy r
 r p 
  r  
 r r 
   pr
 yy r
 r p 
  r  
 r r 
    r
 yy r
 r p 
  r  
 r r 
    r
 yy r
 r   
  r  
 r r 
    r
 yy r
 r   
     
 r r 
    r
 yy r
 r   
     
   r 
    r
 yy r
 r   
     
     
    r
 yy r
 r   
     
     
     
 yy r
 r   
     
     
     
 yy  
 r   
     
     
     
 yy
https://ideone.com/EGa30Y
language:
Perl (perl 5.28.1)
created:
8 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!