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)