Select Code to Download

use strict;
use warnings;
...
+[0-9]{2}|[0-9]{1})\.([0-9]{3}|[0-9]{2}|[0-9]{1})\.([0-9]{3}|[0-9]{2}|
+[0-9]{1}))/);

print "@lines\n";

use strict;
use warnings;
...
for ( @lines ) {
    print "$1\n" if /(ip:[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3
+})/;
    }