lc($string) eq 'perl-community' # muesste eigentlich schneller sein
# und
$string =~ /^Perl-community$/i