在Perl中，可以使用substr函数来截取字符串的长度。该函数的语法如下：
substr($string, $offset, $length)
其中，$string是要截取的字符串，$offset是截取的起始位置，$length是截取的长度。
示例代码：
my $string = "Hello, World!";
my $substring = substr($string, 0, 5);
print $substring; # 输出 "Hello"
在上述示例中，substr($string, 0, 5)将截取字符串$string的前5个字符，即"Hello"。
