要提取每行的最后一個字符，您可以使用Perl中的正則表達式和字符串函數來完成。下面是一個示例代碼：
#!/usr/bin/perl
use strict;
use warnings;
# 打開文件
open my $fh, '<', 'file.txt' or die "無法打開文件: $!";
# 逐行讀取文件內容
while (my $line = <$fh>) {
# 去除行尾的換行符
chomp($line);
# 使用正則表達式提取最后一個字符
my ($last_char) = $line =~ /(\S)$/;
# 打印最后一個字符
print "$last_char\n";
}
# 關閉文件
close $fh;
在上面的代碼中，我們首先通過open函數打開文件，然后通過while循環逐行讀取文件內容。使用chomp函數去除行尾的換行符。然后使用正則表達式/(\S)$/來提取最后一個非空字符，并將其賦值給變量$last_char。最后打印出$last_char。
