my $first;
   ...
  my $second = $first;
  $second =~ s/some/substitution/;