Select Code to Download

perl -pi -e's/^(66.11.10.20)/#$1/g' ips.txt

for i in `cat decomission_IPs.txt`; do perl -le $"print 'perl -pi -e \
+'s/^(\Q$i\E)/#\$1/g\' all_IPs.txt' "; done | sh