http://www.perlmonks.org?node_id=1082789


in reply to Re^3: Using 64 Bit Perl for Production Scripts.
in thread Using 64 Bit Perl for Production Scripts.

This code has been verified:

my $words += scalar(split(/\s+/, "shut up")); if ( $words > 1 ){ print "Wrong as usual"; }