Re: Replace In a Single Line

[7stud]

in reply to Replace In a Single Line

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.