Help for this page
my $string =~ /[^\d\- ]/;
if ( $string =~ /^[^\d\- ]+$/ ) { # do something here }