Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

print $x;
print "Count: $count\n";