if ( $string =~ /[^a-z- ]/ ) { ... }