在Perl中，你可以使用正則表達式來匹配IP地址

#!/usr/bin/perl
use strict;
use warnings;

my $input = "這里有一些IP地址：192.168.1.1, 10.0.0.2, 8.8.8.8, 256.256.256.256";
my @matches = ($input =~ /\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b/g);

print "找到的IP地址：\n";
foreach my $match (@matches) {
    print "$match\n";
}

這個腳本首先定義了一個包含一些IP地址的字符串。然后，它使用正則表達式\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b來匹配IP地址。這個正則表達式的組成部分解釋如下：

1. \b：表示單詞邊界，確保我們匹配的是完整的IP地址，而不是其他單詞的一部分。
2. (?: ... )：表示非捕獲分組，我們不需要捕獲匹配的內容，只是用它來組織正則表達式。
3. 25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?：匹配0到255之間的數字。這是通過以下方式實現的：
   • 25[0-5]：匹配250到255。
   • 2[0-4][0-9]：匹配200到249。
   • [01]?[0-9][0-9]?：匹配0到199。
4. \.：匹配點字符（.）。注意，我們在正則表達式中使用了反斜杠（\）來轉義點字符，因為它在正則表達式中有特殊含義。
5. {3}：表示前面的模式（即一個數字和兩個點字符）需要重復3次。
6. 最后一個部分與前面類似，但它不包含{3}，因為我們只需要匹配最后一個數字。

$input =~ /\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b/g：這個表達式會在$input字符串中查找所有匹配的IP地址，并將它們存儲在@matches數組中。

最后，腳本遍歷@matches數組并打印找到的IP地址。