my $string =~ /[^\d\- ]/;

##</code><code>##

if ( $string =~ /^[^\d\- ]+$/ ) {
    # do something here
}