#!/usr/local/bin/perl
use warnings;
use strict;
use Getopt::Std;
our $opt_q = 0; getopts('q');
my @l = <>;
foreach (@l) { s/^\s+//; s/\s+$// }
while (@l) {
    my @b = splice @l, 0, 100;
    print '(', join(', ', map { chomp; $opt_q ? "'$_'" : $_ } @b), ")\n";
}