fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. while (<DATA>) {
  7.     s/(?:^.*?>>\h*|\G(?!^))\K./\\$&/g;
  8.     print;
  9. }
  10.  
  11. __DATA__
  12. Aenean placerat >> /example/alpha.txt
  13. est et rutrum ultrices >> /example/beta.txt
  14. dolor nibh ultricies nulla >> /example/gamma delta.txt
Success #stdin #stdout 0.01s 5524KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Aenean placerat >> \/\e\x\a\m\p\l\e\/\a\l\p\h\a\.\t\x\t
est et rutrum ultrices >> \/\e\x\a\m\p\l\e\/\b\e\t\a\.\t\x\t
dolor nibh ultricies nulla >> \/\e\x\a\m\p\l\e\/\g\a\m\m\a\ \d\e\l\t\a\.\t\x\t
https://ideone.com/lJl4D1
language:
Perl (perl 5.28.1)
created:
1 year ago
visibility:
secret

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!