my $dime      = '(?:' . ('1' x 10) . ')';
my $halfdozen = '(?:' . ('1' x  6) . ')';
my $nickel    = '(?:' . ('1' x  5) . ')';
my $cent      = '(?:' . ('1' x  1) . ')';
sub greedy_change {
    my $change = shift;
    my ($c10, $c6, $c5, $c1) = ('1' x $change) =~ 
           /^($dime*)($halfdozen*)($nickel*)($cent*)$/;
    return (length ($c10 || "") / 10,
            length ($c6  || "") /  6,
            length ($c5  || "") /  5,
            length ($c1  || "") /  1);
}
[download]