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