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