Other than the proposed module solutions, why do you even need a regex?

sub in_range {
  my( $number, $low, $high ) = @_;

  return 1 if $number >= $low && $number <= $high;
  return 0;
}

my $match = in_range( 68 => 128, 255 );
[download]

    --k.