在Perl中，可以使用正則表達式和字符串函數來截取字符串中的數字。
以下是幾種常用的方法：
my $string = "abc123def456";
my @numbers = $string =~ /(\d+)/g;
foreach my $number (@numbers) {
print "$number\n";
}
這樣會將字符串中所有連續的數字匹配出來并保存在數組@numbers中。
my $string = "abc123def456";
$string =~ s/\D//g;
print "$string\n";
這樣會將字符串中的非數字字符替換為空，只保留數字。
split將字符串拆分成數組，然后篩選出數字元素：my $string = "abc123def456";
my @parts = split /\D+/, $string;
foreach my $part (@parts) {
print "$part\n" if $part =~ /\d/;
}
這樣會將字符串按非數字字符拆分成數組@parts，然后篩選出其中包含數字的元素打印出來。
這些方法都可以根據具體情況選擇使用，根據字符串的格式和需求選擇最合適的方法。
