my @numbers;
while ( <> ) {
    next unless /^COM USAGE/;
    push @numbers, ( /\d+/g )[ 1 ];
    }
[download]