title: bareword found where operator expected
body: <p>I am new to perl, and I am fiddiling around.  I found this code online.
  Here is the snippet of code:</p>
  
  <pre><code>82 process_input(q,[]).
  83 process_input(n,Task) :- toptask(Task), set_new_threshold.
  84 process_input(s,Task) :- suggest_task(T),
  85         apply(addtoagenda,T),toptask(Task).
  86 process_input(x,Task) :- print('not yet implemented'),nl,toptask(Task).
  87 process_input(i,Task) :- user_task,toptask(Task).
  </code></pre>
  
  <p>And I am getting this error: Bareword found where operator expected near "process_input(n, Task" line 83.
  Might be a runaway multi-line ,, string starting on line 82.</p>