Select Code to Download

use strict;
use warnings;
...

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

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

(?:(?: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}))