while (my $name = <DATA>){
     chomp $name;
     print "$name  - ". ($name =~ /[^\p{Alpha} '-]/ ? "FAIL\n" : "PASS\n");
}

__DATA__
Müller
D'Augustine
De Vries
Badin-Powell
1 of the above
1337 |-|@(|<3|?