Help for this page
print join(', ', @strings), "\n";
print do { local $" = q{, }; qq{@strings\n}; };