if ($desc =~ m/\$(\d{1,3},?[\d{3},?]*\.?\d{0,2})/) {