use strict;
use warnings;

use Regexp::Common 'net';

my $input = <<'EOI';
<yoda yoda yoda> <ip-compute-10.10.10.1-internal> <yadda yadda yadda>
<some more stuff>
EOI

my $want  = <<'EOW';
<yoda yoda yoda> <ip-compute-10.10.25.18-internal> <yadda yadda yadda>
<some more stuff>
EOW

my $replacement_ip = '10.10.25.18';

$input =~ s/(<ip-compute-)(?:$RE{net}{IPv4})(-internal>)/$1$replacement_ip$2/;

print $input eq $want ? "Success:\n" : "Failure:\n";
print "\t$_\n" for split /\n/, $input;

##</code><code>##

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

##</code><code>##

(?:(?:25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](?:25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](?:25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](?:25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2}))