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.
|
---|
In Section
Seekers of Perl Wisdom