The most common cause of a syntax error I see in the classroom is a missing semi-colon on the line before the one reported.

By the way, do your tests against $input work? Hint: it's good to chomp.

Also:

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

Is probably better written as:

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

You don't really want to do more regular expression matches than you have to.