Select Code to Download

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper qw( Dumper );

...
+s I did";

my @words = split( /\W+/, $string);

my @words = /\w+/g;

print "Word count:  ", Dumper(%count);

1;