Another approach is to preprocess your string with a regex to remove the troublesome byte(s).

$str =~ s/^((?:...)+).{0,2}$/$1/;
[download]

UPDATE: Corrected typo noticed by kcott.