perl -pe 'if( !eof ){ s/^1/AAAA/; } else{ s/^1/BBBB/; }' /etc/hosts > /tmp/newfile