print "$1" if m/
                 (
                    \$
                    (?:\d{1,3},?)+
                    (?:\.\d{0,2})?
                    (?![.\d])
                 )
               /x;