Select Code to Download

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

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)