在Perl中将字符串拆分为可变长度的字符串

Question

我想做这样的事情：在我的子例程中，有一个长字符串作为输入。 我需要将此字符串拆分为多个长度可变的字符串，例如：我的字符串将由数字，spl字符，字母等组成。我希望将字节1、2一起作为字符串，将字节3-30一起作为另一个子字符串字节31-35作为另一个子字符串，直到到达字符串末尾？ 我怎样才能做到这一点？ 请帮我一个示例代码

Answer 1

my @fields = unpack 'a2 a28 a4', $_;