Minor nitpick: $percent_change =~ s/0+$// if $percent_change =~ /0+$/; the modifying if statement is redundant, the s/// operator only replaces if it matches in the first place.