Select Code to Download

#!/usr/bin/perl -w

# bunched up: /^[+\-]?\$?(\d+(\.\d+)?)(\d{1,3}(,\d\d\d)+(\.\d+)?)$/
...
1028$
$
$-1.029