$n=sprintf("%2.4f",$n);
$n =~ s/\.\d*?0+$//;
[download]

What do you think? Is there one that will cover this scenario too?

Use a sexeger (a reverse regex):

$n = reverse scalar sprintf("%2.4f",$n);
$n =~ s/^0+//g;
$n = reverse scalar $n;
$n =~ s/\.$//g;
[download]

now if could just condense those two regexes into one ... but sometimes, brute force is better than cleverness.

UPDATE: aha!

$n = reverse scalar sprintf("%2.4f",$n);
$n =~ s/^0+\.?//g;
$n = reverse scalar $n;
[download]

that was easier than i thought ... unless i missed something [And i did ... glad i retested, because i had forgotten to espace the dot .. bad jeffa. Also, the scalar keywords are not necessary].

And jmcnamara++ ... that's the best solution posted (IMHO) since you already are using sprintf.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

An even more fun version:

$n = reverse scalar sprintf("%2.4f",$n);
$n =~ s/\G0//g;
$n = reverse scalar $n;
[download]

(Hats off to merlyn's version of this in Effective Perl Programming!)