in reply to regex to match numbers after decimal

If you want it to behave like text, put it in quotes. 
$ perl -E 'my $price = "-1.500"; say for $price =~ m/^-\d+\.(\d*)$/g'
500

[download]

        If your eyes hurt after you drink coffee, you have to take the spoon out of the cup.
              -Norm Crosby

In Section Seekers of Perl Wisdom