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