in reply to multiple regex logical AND

Hi bigswifty00000,

A couple of other points, additionally to what shmem has already pointed out:

  1. I think you want something along the lines of $ARGV[0], as @ARGV is the argument vector (read "array") passed to your Perl script, -not- a scalar.
  2. It looks like you're missing a quotation mark in:  /^TEOJ=-w"/ (see where?)
  3. You can use '|' in regular expressions like this:  if /^(JRECOV="yes"|TEOJ="-w")/.&nbsp;&nbsp;But it's usually faster to do it with multiple conditionals like:&nbsp;&nbsp;<c>if ($_ eq 'JRECOV="yes"' or $_ eq 'TEOJ="-w"'), especially if you have lots of patterns to match.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/