c:\>perl -e "@a=grep {/http/i} keys %ENV; print int @a"
0
c:\>