use Regex::FunctionalSubstitute;
my $first;
 ...
my $second = $first \~ s/some/subst/g;