https://kottke.org/07/03/perl-oneliner-for-checking-if-a-number