use strict; use warnings; use utf8; use String::BOM qw( strip_bom_from_string ); my $string = '˙ūThe quick brown fox jumped over the unfortunate dog.'; print ">$string<\n"; $string = strip_bom_from_string($string); print ">$string<\n";