Perl是一種功能強大的編程語言，它支持正則表達式，使得在文本數據中進行數據清洗和轉換變得非常容易

1. 使用正則表達式匹配和替換文本

Perl的正則表達式引擎非常強大，可以用來匹配、查找和替換文本數據。例如，假設你想從一個字符串中刪除所有的數字，你可以使用以下代碼：

my $string = "abc123def456";
$string =~ s/\d//g;
print $string;  # 輸出 "abcdef"

在上面的代碼中，s/\d//g是一個正則表達式，用于匹配所有的數字，并將其替換為空字符串。g修飾符表示全局匹配，即替換所有的匹配項。

2. 使用正則表達式分割字符串

如果你想把一個字符串按照某種模式分割成多個子字符串，你可以使用Perl的正則表達式引擎。例如，假設你想把一個包含逗號分隔的字符串分割成多個字段，你可以使用以下代碼：

my $string = "apple,banana,orange";
my @fields = split(/,/, $string);
print "@fields";  # 輸出 "apple banana orange"

在上面的代碼中，split(/,/, $string)使用逗號作為分隔符將字符串分割成多個字段，并將結果存儲在數組@fields中。

3. 使用正則表達式捕獲組

如果你想在匹配文本的同時捕獲某些部分，你可以使用Perl的正則表達式的捕獲組功能。例如，假設你想從一個字符串中提取所有的電子郵件地址，你可以使用以下代碼：

my $string = "hello world, my email is john.doe@example.com";
if ($string =~ /(\w+@\w+\.\w+)/) {
    print "Email: $1\n";  # 輸出 "Email: john.doe@example.com"
}

在上面的代碼中，/(\w+@\w+\.\w+)/是一個正則表達式，其中括號()表示捕獲組。這個正則表達式匹配所有的電子郵件地址，并將匹配的部分存儲在捕獲組中。然后，我們可以通過$1等變量來訪問捕獲組中的內容。

以上是一些Perl正則表達式進行數據清洗和轉換的基本示例。實際上，Perl的正則表達式功能非常強大，可以用來處理各種復雜的文本數據清洗和轉換任務。