in reply to matching USD amounts

$re = qr!
    ^
    \$\d
    [\d,]*?
    \d\d\d
    (?:\.\d\d)?
    $
    !x;

[download]

In Section Seekers of Perl Wisdom