in reply to modulus and floating point numbers

I am not sure, but what about? 
sub is_subpenny {
    ($_[0]+0) =~ /\..../;
}

[download]

In Section Seekers of Perl Wisdom