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