在Perl中,如何从包含回车符和换行符的字符串中捕获一串数字？

#!/usr/bin/perl

use strict;
use warnings;

my $string = "这里是一些数字：123456
789012
还有一些其他的文本。";

my @numbers = $string =~ /\d+/g;

print "捕获到的数字：\n";
foreach my $number (@numbers) {
    print "$number\n";
}

捕获到的数字：
123456
789012