$ perl -Mstrict -Mwarnings -E '
    my $re_2_5 = qr{^@{[join "|", 2 .. 5]}$};
    my $re_6_10 = qr{^@{[join "|", 6 .. 10]}$};

    for my $x (4 .. 7, 11) {
        for ($x) {
            if (/$re_2_5/) { say "$_ in 2-5 range" }
            elsif (/$re_6_10/) { say "$_ in 6-10 range" }
            else { say "$_ not in range" }
        }
    }
'
4 in 2-5 range
5 in 2-5 range
6 in 6-10 range
7 in 6-10 range
11 not in range