Perl subtr function 取代部分字串

參考 http://perl.hcchien.org/ch12.html

$string = 'hello world';
# 將 hello 取代為 hi
substr ($string, 0, 5) = 'hi';