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";

##</code><code>##

22:35 >perl 1697_SoPW.pl
>˙ūThe quick brown fox jumped over the unfortunate dog.<
>The quick brown fox jumped over the unfortunate dog.<

22:35 >