in reply to Deleting trailing 0's after using sprintf

I'd use : 
$percent_change = 0+sprintf "%.3f", $percent_change;

[download]

.02

cLive ;-)

In Section Seekers of Perl Wisdom