如何在Perl中解决一组约束？

if ($string =~ /^[a-zA-Z]+$/) {
    print "String matches constraint\n";
} else {
    print "String does not match constraint\n";
}

use List::Util qw(max);
use List::MoreUtils qw(any);

my @numbers = (1, 2, 3, 4, 5);

if (any { $_ > 10 } @numbers) {
    print "At least one number is greater than 10\n";
}

my $max = max(@numbers);
print "The maximum number is $max\n";

use Number::Constraints;

my $constraint = Number::Constraints->new(
    min => 10,
    max => 100,
    step => 5
);

if ($constraint->check(50)) {
    print "Number 50 satisfies the constraint\n";
} else {
    print "Number 50 does not satisfy the constraint\n";
}