$ cat test_stresc.pl
#!/usr/bin/perl
use warnings;
use strict;
my $str_sq = '1Aa\t\x31\x41\x61\t\x{263a}\r\n';
my $str_dq = "1Aa\t\x31\x41\x61\t\x{263a}\r\n";
print "str_sq:[$str_sq] --> ", unpack("H*", $str_sq), "\n";
print "str_dq:[$str_dq] --> ", unpack("H*", $str_dq), "\n";
$ ./test_stresc.pl
str_sq:[1Aa\t\x31\x41\x61\t\x{263a}\r\n] --> 3141615c745c7833315c7834315c7836315c745c787b323633617d5c725c6e
Wide character in print at ./test_stresc.pl line 9.
str_dq:[1Aa 1Aa ☺