Unless instead of negated if
Merge branch 'master' of https://github.com/kaysush/learning-perl