Help for this page
$a =~ /\d\d\.\d\d/ || $a =~ /\$\d\d\d\.\d\d\d/ || $a =~ /\$\.\d\d/
$a =~ /\d\d\.\d\d/ || $a =~ /\$\.\d\d/;
$a =~ /(?:\d\d|\$)\.\d\d/;