Don't modify `$_`

Hello. You should not modify `$_` in the `while` loop for a lot of reasons. You can see this http://www.perlmonks.org/?node_id=570712 for more details.