use Interpolation 'S' => sub {
	local $_ = sprintf("%.2f", shift());
	1 while s/^(-?\d+)(\d{3})/$1,$2/;
	'$'.$_;
};
#...
print "And the total price is $S{$Price}.\n";