"$_ = 'lll+ll'; #3+2
@add = m/(l+)\+(l+)/;
print "$_ = @add\n";

$_ = 'lll*ll'; #3*2
@mult = m/l(?=.*\*(l*))/g;
print "$_ = @mult\n";

$_ = 'lll';
@sqr = m/(l)(?=(l*))(?=(l*))/g;
print "$_ squared = @sqr\n";"
##</code><code>##

my $a = '111';
my $b = '11';

print $a . $b, "\n"; # 3 + 2
print $a x length($b), "\n"; #3 * 2
print $a x length($a), "\n"; #sqr(3)