fork download 
  1. #!/usr/bin/perl
  2.  
  3. $c = 'a';
  4. $l="<";
  5. $r=">";
  6.  
  7. while(<>){
  8. s/$c/$l$c$r/g;
  9. print;
  10. }
  11.  
Success #stdin #stdout 0s 4892KB
comments (?)
stdin 
abc
bac
bca
aba
abcabc
aaa
stdout 
<a>bc
b<a>c
bc<a>
<a>b<a>
<a>bc<a>bc
<a><a><a>
https://ideone.com/IFxU2W
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!