I don't see any security issues either, but I would recommend for the sake of efficiency that you place a
/o modifier on your regex, unless you plan to run this under mod_perl.
| | my @lines = grep /\Q$find/io, @$data_ref;
|
You can also skip all the quotemeta and untainting rigamorole for
$find, if using the above construct. Perl doesn't care about the taintedness of a variable interpolated into a regex, unless the var contains an eval-group and
use re 'eval' is on, which taint mode will summarily ignore.
MeowChow
s aamecha.s a..a\u$&owag.print