As you can tell from my posts, most of my Perl scripts are quick "get 'er done" type things. I am not a developer or programmer, but a jack-of-all-trades network guy.

That being said I appreciate any advice. I'll probably clean them up now that they've broken and I'm looking at them anyway.

I think in this case I got caught in the reversal of comparison operators between Bash and Perl. Per the ABSG chapter 7, the == operator is for strings and -eq is for integers. Exactly the opposite for Perl. So I probably had the Bash operators in mind when I wrote the original...

:/