Help for this page

Select Code to Download

Select or download this

while (<STDIN>)
{
    if (/(\d+) matches\)/)
...
{
    print $_->[1];
}