$booktitle =~ s/\u200b//g;
$booktitle =~ s/\x200b//g;
$booktitle =~ s/\<200b\>//g: