Perl 如何根据输入文件中给出的数字展开文件？

我有一个输入文件

MOD_GlcNHglycan 264-268 DTSGT

我想有如下输出 MOD_GlcNHglycan 264 D MOD_GlcNHglycan 265吨 MOD_GlcNHglycan 266 S MOD_GlcNHglycan 267 G MOD_GlcNHglycan 268 T

my $str = 'MOD_GlcNHglycan 264-268 DTSGT';
my ($name, $range, $chars) = split ' ', $str;
my ($start, $end) = split '-', $range;
my @chars_arr = split '', $chars;
my @results = ();
foreach my $char ( @chars_arr ) {
    push @results, $name, ' ', $start++, ' ', $char;
}

结果生成一个数组，其中包含：

MOD_GlcNHglycan 264 D
MOD_GlcNHglycan 265 T
MOD_GlcNHglycan 266 S
MOD_GlcNHglycan 267 G
MOD_GlcNHglycan 268 T