$bar =~ s/varchar\s*\(\d|\d\d|2[0-4]\d|25[0-5])\)/TEXT/i;