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

##</code><code>##


##</code><code>##

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

##</code><code>##