Help for this page
sub is_integer { ~$_[0] !~ /\D/ }
#!/usr/bin/perl -wT use strict; ... } sub is_integer { ~$_[0] !~ /\D/ }