title: How can I use 'say' with Perl 5.8.8?
body: <p>I'm assigned to a project (PHP/MySQL) that needs some review and possibly fixes.</p>
  <p>As a part of it it is planned to check correctness of all variables that we get via GET and POST. We have a bunch of PHP (<em>.php</em>) and <a href="https://en.wikipedia.org/wiki/Smarty_(template_engine)" rel="nofollow noreferrer">Smarty</a> (<em>.tpl</em>) files that have several thousands of lines of code all together, so it would be painful to search for all $_GET[...] and $_POST[...] references manually. So I tried doing this:</p>
  <pre><code>find . -name &quot;*.php&quot; -or -name &quot;*.tpl&quot; |
  xargs perl -ne 'use feature say; say $1 while m/(\$_(GET|POST)\[[\s]*[\S]+[\s]*\])/g;' |
  sort -u
  </code></pre>
  <p>Basically it creates a list of all $_GET[...] and $_POST[...] references in the project, and then deletes the repeated values from it. But it didn't work, because I have Perl 5.8.8 on my development machine, which does not support 5.10+ feature 'say', and our system administrator said that upgrade is undesired. I'm not sure why, but he's the boss.</p>
  <p>So, is there a way to replace 'say' with some other code, or maybe even replace Perl with another tool?</p>