Select Code to Download

use strict;
my $sql = <<'--SQL--';
...
$Data::Dumper::Terse = 1;
($\, $,) = ("\n", ",\n");
print map { Dumper $_ } @out;

['KEYWORD','select'],
['KEYWORD','case'],
...
['DQUOTED','"even tougher"'],
['KEYWORD','from'],
['WORD','mytable']