@list = map({ quotemeta "129.$_.125.123" } (0..255));

$regex_text = join('|', @list);
$re = qr[($regex_text)];
print $re, "\n";

while (<>) {
    if ($_ =~ $re) {
        print "$1\n";
    }
}