Perl: Use s/ (replace) and return new string [duplicate]

by 
require 5.013002; # or better:    use Syntax::Construct qw(/r);
print "bla: ", $myvar =~ s/a/b/r, "\n";

See perl5132delta:

The substitution operator now supports a /r option that copies the input variable, carries out the substitution on the copy and returns the result. The original remains unmodified.

my $old = 'cat';
my $new = $old =~ s/cat/dog/r;
# $old is 'cat' and $new is 'dog'

Related Contents:

  1. How do I perform a Perl substitution on a string while keeping the original?
  2. How do I match any character across multiple lines in a regular expression?
  3. Regular expression search replace in Sublime Text 2
  4. Match whitespace but not newlines
  5. How can I add a string to the end of each line in Vim?
  6. Regex to match any character including new lines
  7. Match everything except for specified strings
  8. What flavor of Regex does Visual Studio Code use?
  9. Visual Studio, Find and replace, regex
  10. How to match any non white space character except a particular one?
  11. Why it’s not possible to use regex to parse HTML/XML: a formal explanation in layman’s terms
  12. How to search for occurrences of more than one space between words in a line
  13. Eclipse, regular expression search and replace
  14. Escaping a forward slash in a regular expression
  15. Can you make just part of a regex case-insensitive?
  16. Capitalize first letter of each word in a selection using Vim
  17. The recognizing power of “modern” regexes
  18. What does $1 mean in Perl?
  19. Notepad++ Replace regex match for same text plus appending character
  20. Perform a non-regex search/replace in vim
  21. How can I store regex captures in an array in Perl?
  22. phpstorm replace array() notation to [ ] short syntax
  23. What regex can match sequences of the same character?
  24. How to match once per file in grep?
  25. How to replace a string in an existing file in Perl
  26. Should I use \d or [0-9] to match digits in a Perl regex?
  27. Find and replace whole words in vim
  28. How can I use a variable for a regex pattern without interpreting meta characters?
  29. regex implementation to replace group with its lowercase version
  30. How can I use a variable in the replacement side of the Perl substitution operator?
  31. Emacs: regular expression replacing to change case
  32. Removing non-alphanumeric characters with sed
  33. “Variable length lookbehind not implemented” but it isn’t variable length
  34. Why is `\s+` so much faster than `\s\s*` in this Perl regex?
  35. Are Perl regexes turing complete?
  36. find & replace commas with newline on Google Spreadsheet
  37. Adding characters at the start and end of each line in a file
  38. Reference – What does this regex mean?
  39. Negative regex for Perl string pattern match
  40. Regex Group in Perl: how to capture elements into array from regex group that matches unknown number of/multiple/variable occurrences from a string?
  41. Perl iterate through each match
  42. How can I exclude some characters from a class?
  43. Reference – Password Validation
  44. Replace a word with multiple lines using sed?
  45. How can I match a quote-delimited string with a regex?
  46. Replace single backslash in R
  47. Notepad++ Regex Backreference syntax in Search/Replace – \1 or $1
  48. Does the ‘o’ modifier for Perl regular expressions still provide any benefit?
  49. Regex to check if valid URL that ends in .jpg, .png, or .gif
  50. Counting number of occurrences of a string inside another (Perl)

Leave a Comment