Select Code to Download

#!/usr/bin/perl
use strict;
...
        $size++ while m{\b\w+\b}g;
}
print "wordcount: $size words\n";