Ok, heres a couple of strange ones:

#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]

BTW its bad practice to use the variables $a and $b. They have special meaning to sort and you can get weird errors from them.

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