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

##</code><code>##

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