在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!"
