Select Code to Download

#! perl
use strict;
...
    my ($comment) = $select =~ / ( -- [^']+ ) $ /x;
    print $comment, "\n" if $comment;
}

--This is a comment
--But this is

#! perl
use strict;
...
        print substr($select, $i), "\n";
    }
}

--This is a comment
--But this is
-- a 'useful comment' goes here?
-- comment with 'a' quote
-- comment with 'a --' comment