1.) ($concat = $a) .= $b;
[download]

2.) $" = $b; @_ = ($a,undef); $concat = "@_";
3.) do { $concat .= $_ for (split(//))} for ($a,$b);
4.) my %a = ($a => $b); $concat = join'',each %a;
5.) $concat =~ s//$a/; $concat =~ s/$/$b/;
6.) $concat = <<"EOF"; chomp($concat);
    $a$b
    EOF
7.) $concat = `echo -n "$a$b"`;  # for safe values of $a and $b
8.) $concat = glob("{$a}{$b}");  # not Taint safe... will choke on met
+achars...
9.) ($concat) = ("$a$b" =~ /(.*)/);

And finally, everyones favorite Perl6 construct...
10.) $concat = $a _ $b;
[download]

Update: Ok, now I get it... you want us to pick a simple operation and try to find $MAX+1 ways to do it, not necessarily just find other ways to do a concat. In that case, I'll set the original $MAX rather high by pointing at Adding 2 + 2, which ties perl-based-dynamic-webpage-templating-systems for the most most "ways to do it."

Update2: Added a few more to the list...

-Blake

10.) $concat = $a _ $b;

OK, I'll stick out my neck.
Where can I RTFM on this _ operator(?)?

f--k the world!!!!
/dev/world has reached maximal mount count, check forced.

Keep in mind, this is Perl6 (still many years away), but ' _ ' has been deemed the new concat operator.

-Blake

#!/usr/bin/perl -w
use strict;

my $a = "Foo";
my $bar = "bar";
$a =~ s/(.*)/$1$bar/;

print $a;
[download]

1) Create insert sql statements
2) Insert into a table
3) select col1+col2 from table
4) fetchrow
5) print
[download]

#Yabadabadoo!
my $cat=unpack("A*",pack("A*A*",$s_a,$s_b));

# Serious overkill
use Tie::Handle::Scalar;
my $cat2;
tie *FH, 'Tie::Handle::Scalar', \$cat2;
print FH $s_a,$s_b;
[download]

Yves / DeMerphq
--
Have you registered your Name Space?