というわけで、改造・・・
目的のファイルを開いて\dを\wに変えるだけ・・・(w$str =~ s/^\d+\)/$arg/;
$str =~ s/^\d+\)//;
これを
$str =~ s/^\w+\)/$arg/;
$str =~ s/^\w+\)//;
こうかえるだけ・・・
というわけで、改造・・・
目的のファイルを開いて\dを\wに変えるだけ・・・(w$str =~ s/^\d+\)/$arg/;
$str =~ s/^\d+\)//;
これを
$str =~ s/^\w+\)/$arg/;
$str =~ s/^\w+\)//;
こうかえるだけ・・・