my $copy = $foo;
utf8::downgrade($copy) or utf8::encode($copy) && carp "Wide character in operation";