{ local $/; $_ = <>; } @_ = /users\s+(\d+)/g; $a = 0; $a += $_/@_ for (@_); print "$a\n";