Perl正則表達式匹配

Question

我有一個字符串作爲$text=",passage,null,a,a,a,d"，我想要一個可以替代$text變量中的第二個字段的正則exp。

Answer 1

天真的方法，沒有正則表達式：

use strict; 
use warnings; 

my $text = ",passage,null,a,a,a,d"; 
my @terms = split(/,/, $text, -1); 
$terms[2] = 'toto'; 
$text = join ',', @terms; 

功課，你可以重寫，作爲一個班輪