Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
        select q from z -- as is this
        select '--This is not a valid comment' from foo
        select '--Not this' + '--either' from foo

#!/usr/bin/perl
use warnings;
...
        select '--Not this' + '--either' from foo
        select 'qaws' + make from "a" -- comment with 'a' quote
        select 'a' from 'b' with 'c' -- comment with 'a --' comment

while (<DATA>) {
    chomp;
...
    print join("'", @code), @items ? (@code ? "'" : q() ) . "$items[0]
+"
                                   : q(), "\n";
}