在Perl中，substr函數用于提取字符串的子字符串。其語法如下：
substr($string, $offset, $length, $replacement)
其中，$string是要操作的字符串，$offset是要提取的子字符串的起始位置（從0開始計數），$length是要提取的子字符串的長度，$replacement是可選的替換字符串。
如果省略$length參數，則提取從$offset位置開始到字符串末尾的所有字符。如果指定了$replacement參數，則會用替換字符串替換提取出的子字符串。
示例：
my $string = "Hello, world!";
my $substr = substr($string, 7, 5); # 提取從第7個字符開始的5個字符
print $substr; # 輸出 "world"
substr($string, 7, 5, "Perl"); # 替換從第7個字符開始的5個字符為"Perl"
print $string; # 輸出 "Hello, Perl!"
