if ($Number =~ /\d{9}/) {
    print "Line has more than 8 digits!\n"
}
elsif ($Number =~ /\d/) {
    $N = $Number;
}
else {
    print "Line has no digits at all!\n";
}