Select Code to Download

update set bar = bar - 1 ; -- subtraction symbol may disappear.

my $p = SQLParser->new(type=>'mysql', sql=>$sql)
  or die SQLParser->error();
...
$p->prettyprint(1);
$p->without_comment(1);
print $p->sql;