Select Code to Download

( my $string= q{
    ...
} ) =~ s/(?=^|(\n))\n[^\S\n]+/defined $1 ? "\n" : ''/ge;

    $db->select(
        [ "this", "that", "theother", "COUNT(*) as things" ],
...
        "LIMIT $size OFFSET $skip",
        "HAVING 1 < count(*)",
    );

    $db->prepare( join ' ',
        "SELECT", join( ', ',
...
        "LIMIT $size OFFSET $skip",
        "HAVING 1 < count(*)",
    );