c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common 'net';
 ;;
 my $input = qq{<yoda yoda> <ip-compute-10.10.10.1-internal> <yadda yadda> \n}
           . qq{<more stuff>}
           ;
 print qq{[[$input]] \n};
 ;;
 my $want = qq{<yoda yoda> <ip-compute-10.10.25.18-internal> <yadda yadda> \n}
          . qq{<more stuff>}
          ;
 ;;
 my $replacement_ip = '10.10.25.18';
 ;;
 $input =~ s{ <ip-compute- \K $RE{net}{IPv4} (?= -internal>) }
            {$replacement_ip}xmsg;
 ;;
 print $input eq $want ? 'Success:' : 'Failure:';
 print qq{[[$input]]};
"
[[<yoda yoda> <ip-compute-10.10.10.1-internal> <yadda yadda>
<more stuff>]]

Success:
[[<yoda yoda> <ip-compute-10.10.25.18-internal> <yadda yadda>
<more stuff>]]