#!/usr/bin/perl

use warnings;
use strict;

$\ = $/;
$, = '+';

print qw/a b/ x 2;
print scalar(qw/a b/ x 2);
print for (qw/a b/ x 2) x 2;
print for qw/a b/ x 2 x 2;

##</code><code>##

a+b+a+b

##</code><code>##

bb

##</code><code>##

a
b
a
b
a
b
a
b

##</code><code>##

bbbb