Select Code to Download

my @fields = unpack('A34 A30 A40 ...', $string);

my @field_sizes = (34, 40, 40, ...);
my $rec_format = join '', map "A$_", @field_sizes;

my @fields = unpack($rec_format, $string);