use strict;
print map { (length($_) - 2) . "\n" } 
  split('\s+', "Just Another Perl Hacker");
__END__
2
5
2
4