要使用Perl正则表达式匹配数字，可以使用以下方法：
my $string = "12345";
if ($string =~ /\d+/) {
print "匹配成功\n";
} else {
print "匹配失败\n";
}
my $string = "12345";
if ($string =~ /[0-9]+/) {
print "匹配成功\n";
} else {
print "匹配失败\n";
}
my $string = "3";
if ($string =~ /[1-5]/) {
print "匹配成功\n";
} else {
print "匹配失败\n";
}
my $string = "12345";
if ($string =~ /\b\d+\b/) {
print "匹配成功\n";
} else {
print "匹配失败\n";
}
需要注意的是，以上示例中的正则表达式都是基于Perl的默认模式进行匹配。如果需要使用其他模式，可以在正则表达式前加上相应的修饰符，如/i表示忽略大小写，/s表示将.匹配包括换行符在内的任意字符等。
