$y = Encode::encode('some encoding', $x);
$n = rindex($x, "\N{WHITE SMILEY FACE}"); # need: use charnames ':full';
...