use feature ':5.10';
my $foo = '⁦JenAFifield⁩';
foreach my $i (0..length($foo)) {
    $char = substr($foo,$i,1);
    $charnum = ord($char);
    say "$char\t$charnum"; 
}