if ($x >= 1 && $x <= 10) {
    print "Correct match";
} else {
    print "Incorrect";
}

##</code><code>##

if ($x =~ /^([1-9]|10)$/) {
    # etc
}