>>395
プログラミングPerl 第2版 P.261
substr($_, 0, 1) = "Moe";
って例が出てるぞ。