if($input =~ /[^1-9]/){  # Used to check for input words.
    ...
    }
    else {
         print "\n";       
    }