$bar =~ s/varchar\s*\((\d+)(??{$1<256})\)/TEXT/i;