in reply to Regular Expression

my @result = map /^COM USAGE .* (\d+)$/, <>;

[download]
Understanding how it works is left as an exercise for the user.

In Section Seekers of Perl Wisdom