fork download
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. my $s = "bla";
  5.  
  6. $s =~ s/la/ar/;
  7.  
  8. print "$s\n";
  9.  
  10. $s =~ s{ar}{la};
  11.  
  12. print "$s\n";
  13.  
  14. $s =~ s{la}<ar>;
  15.  
  16. print "$s\n";
Success #stdin #stdout 0.01s 5280KB
stdin
Standard input is empty
stdout
bar
bla
bar