perl -MO=Deparse,-p -e 'my $price = -1.500;'
(my $price = (-1.5));
-e syntax OK