Re: Replace In a Single Line

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
[download]

A ridiculous question deserves a ridiculous answer.

In Section Seekers of Perl Wisdom