use strict;
use feature qw(unicode_strings say);
use Unicode::Normalize 'NFD';

my $author = "Sch\x{f6}\x{f6}ttl";

$author = NFD $author;
$author =~ s/\p{Combining_Diacritical_Marks}//g;
say $author;