Select Code to Download

use strict;
use warnings;
...
while (<$fIn>) {
    print if /\b(?!0+\b)\d{1,9} failed/;
}

Errors: 01 failed
Errors: 1 failed
Errors: 10 failed