perl - 負のドルの値を印刷する簡単な方法

Question

現在これを使用しています

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

印刷する

 $-8.2

簡単に印刷する方法はありますか

-$8.2