Hi
bigswifty00000,
A couple of other points, additionally to what shmem has already pointed out:
- 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.
- It looks like you're missing a quotation mark in: /^TEOJ=-w"/ (see where?)
- You can use '|' in regular expressions like this: if /^(JRECOV="yes"|TEOJ="-w")/. But it's usually faster to do it with multiple conditionals like: <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$..$/