die "The number is not valid\n" if $number =~ /\D/;
die "Enter is not valid" if $number =~ /\r/;
die "Enter is not valid" if $number =~ /^M/;