How do I perform a Perl substitution on a string while keeping the original?

by

This is the idiom I’ve always used to get a modified copy of a string without changing the original:

(my $newstring = $oldstring) =~ s/foo/bar/g;

In perl 5.14.0 or later, you can use the new /r non-destructive substitution modifier:

my $newstring = $oldstring =~ s/foo/bar/gr;

NOTE:
The above solutions work without g too. They also work with any other modifiers.

SEE ALSO:
perldoc perlrequick: Perl regular expressions quick start

More Related Contents:

  1. How to use different separators (/ , |) in a regular expression
  2. string pattern matching using perl regex [closed]
  3. Awk – replace coumn 2 in table 1 from coumn 2 in table 2 based on matching data in column 1 (common between tables)
  4. I would like remove only spaces and ignore tabs in a string
  5. Match whitespace but not newlines
  6. Why is a character class faster than alternation?
  7. What flavor of Regex does Visual Studio Code use?
  8. Verbs that act after backtracking and failure
  9. What regex can match sequences of the same character?
  10. How to extract string following a pattern with grep, regex or perl [duplicate]
  11. Regex to match any character including new lines
  12. How do I handle special characters in a Perl regex?
  13. Why do ^ and $ not work as expected?
  14. How can I find the location of a regex match in Perl?
  15. how to use a regular expression to extract json fields?
  16. How can I exclude some characters from a class?
  17. Can I use Perl regular expressions to match balanced text?
  18. What is the difference between \1 and $1 in a Perl regex?
  19. How to search and replace with a counter-based expression in Vim?
  20. Does \w match all alphanumeric characters defined in the Unicode standard?
  21. How can I parse quoted CSV in Perl with a regex?
  22. Eclipse, regular expression search and replace
  23. How can I match double-quoted strings with escaped double-quote characters?
  24. Is There a Way to Match Any Unicode Alphabetic Character?
  25. How to escape dollar sign ($) in a string using perl regex
  26. Eliminate newlines in google app script using regex
  27. Capturing text before and after a C-style code block with a Perl regular expression
  28. How to replace only part of found text?
  29. Counting number of occurrences of a string inside another (Perl)
  30. How to replace a string in an existing file in Perl

Leave a Comment