use Regexp::Common;
    /(?=-)$RE{num}{decimal}/