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