#!/usr/bin/perl -w

use Devel::Peek;

my $string_1 = "\xa3";
my $string_8 = "\x{263a}";

print q[$string_1 = "\xa3"],"\n";
Dump $string_1;
print q[$string_8 = "\x{263a}"],"\n";
Dump $string_8;

my $string_combo = $string_1 . $string_8;

print q[$string_1 . $string_8],"\n"; 
Dump $string_combo;

my $string_simple = $string_1 . pack('H*',unpack('H*',$string_8));

print q[$string_1 . pack('H*',unpack('H*',$string_8))],"\n"; 
Dump $string_simple;