Select Code to Download

#!/usr/bin/perl

...
    printf "NUMBERS:[%d:%s]\n", (length s/\d//gr), $_;
    print '-' x 10, "\n";
    }

1
1000000000
...
1
1 2 3 4

NUMBERS:[1:1000000000
]
...
DELETED:[14 19 ] REMAINS:[26 33
]
Can't coerce UNKNOWN to string in substitution iterator at ./coerce.pl
+ line 11, <> line 12.