$ 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) {
            say 
                  /$re_2_5/  ? "$_ in 2-5 range"
                : /$re_6_10/ ? "$_ in 6-10 range"
                :              "$_ 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