#!/usr/bin/perl -lw

my $max = 32767;
my $value = "feeefooobarrr";

my $match = ($value =~ /^(.{0,$max})$/);

print $match;


##</code><code>##

Quantifier in {,} bigger than 32766 in regex; 
marked by <-- HERE in m/^(.{ <-- HERE 0,32767})$/