use Perl6::Str;
use charnames qw(:full);
my $str = Perl6::Str->new("A\N{COMBINING DIAERESIS}O");
print $str->reverse; # will print OÄ, as is DWIMmy.