Replace In a Single Line

[anshumangoyal]

I have a Variable

$var = "GoodMan"

I want to replace "oo" and assign it to a variable $var2 in a single line. With Multiple Lines I can do like this:

$var1 = $var;
$var1 =~ s/oo//gi;

How to do this in a line, so that $var is not changed and $var1 get's changed variable.

[tobyink]

In recent versions of Perl, you can do:

$var1 = ($var =~ s/oo//gir);

In pretty much any version of Perl, you can do:

($var1 = $var) =~ s/oo//gi;

Update: the second method is about 35% faster according to my benchmarking. The first one is sometimes more elegant - especially when the variable you're operating on (and don't want to be changed) is $_ such as this map block:

my @without_oo = map { s/oo//rig } @with_oo;

# traditional version:
my @without_oo = map { (my $x = $_) =~ s/oo//ig; $x } @with_oo;

But in your original example, neither of the two solutions I presented above seems more elegant than the other, so I'd prefer the faster one.

[7stud]

use strict; 
use warnings; 
use 5.012;

my $var = "GoodMan";
my $result = join "", (sprintf "%s", $var) =~ m/(.*?) oo (.*)/xms;
say $var;
say $result;

--output:--
GoodMan
GdMan

A ridiculous question deserves a ridiculous answer.