die "\$foo contains a non-digit character!\n" if $foo =~ /\D/;