Select Code to Download

use strict;
use warnings;
...
       ? qq{$deCommafied\n}
       : qq{no match\n};
}

Number... () - no match
Number... (1) - 1
...
Number... (123,456,789) - 123456789
Number... (1,234,567,890) - 1234567890
Number... (1,234a) - no match