Select Code to Download

CREATE TABLE foo (
  id INTEGER NOT NULL PRIMARY KEY,
  name VARCHAR(32) NOT NULL,
  age INTEGER
);

create table foo (
  id INTEGER       NOT NULL PRIMARY KEY,
  name VARCHAR(32) NOT NULL,
  age integer
);

use Regexp::Common;
use Data::Record;
my $record = Data::Record->new({
...
    unless => $RE{quoted},
});
my $data = join ' ', map { lc $_ } $record->records($data);