perl,给文件每一个特定位置添加字符

对于mRNA提取特异序列位置，发现提取出的id与mRNA编号存在差异，添加特定字符“.”，使其变成转录本的编号

use strict;
use warnings;

open my $fh, '<', 'LTH.txt' or die "无法打开文件：$!";

while (my $line = <$fh>) {
    chomp $line;
    my $length = length($line);
    
    if ($length >= 2) {
###-1为倒数第一个字符
        my $new_line = substr($line, 0, $length - 1) . '.' . substr($line, $length - 1);
        print $new_line . "\n";
    } else {
        print $line . "\n";
    }
}

close $fh;