(my $sEnd = $sBegin) =~ s/hello/goodbye/g;