$buffer =~ s/varchar \(\d+\)/TEXT/ig if (/varchar \((\d+)\)/i and $1 > 255);