Select Code to Download

#!/usr/bin/perl -lw

...

print $match;

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