Select Code to Download

use CGI;
use CGI::Carp qw(fatalsToBrowser);
...
require Encode::CN;
require Encode::TW;
require 5.004;

$name = decode("utf-8", $name); 
$value = decode("utf-8", $value);

my $quest = $dbh->prepare($statement, { RaiseError => 1 }) 
       or die "Cannot prepare statement! $DBI::errstr\n";
...
  $c1=decode("utf-8", $c1);
  ...
}

$line =~ s%(?:\p{IsSpace}*) #Match zero or more spaces
(\bNOT)?                    #Match zero or one "NOT" operator(s)
...
)                           #(end group)
                            #AND SUBSTITUTE THE ABOVE WITH THE BELOW
%$2$3$table\.$columnName`$1`$like`"$l$wb$4$we$l"$5$6 $7 %xig;