Быстрый способ печати отрицательного значения доллара

Question

Я использую это в настоящее время

$Profit = -8.2 ; 
printf("%8s",sprintf("\$%0.2f",$Profit)). 

который печатает

$-8.2 

Есть быстрый легкий способ печати

-$8.2 

Answer 1

sprintf("%s\$%0.2f", $Profit >=0 ? "" : "-", abs($Profit)) 

5.14+ :

sprintf("%0.2f", $Profit) =~ s/^-?\K/\$/r