$ perl -E 'my $price = "-1.500"; say for $price =~ m/^-\d+\.(\d*)$/g'
500