Counting spaces between words

[blacknred]

I got a file:

I wake     up in          the                                morning
What       time?
Always     wakeup      at                    6am.

what would be an easy way to determine the number of white spaces between each word?

Thanks in advance
David

[d5e5]

#!/usr/bin/perl;
use strict;
use warnings;

while (<DATA>){
    my @whitespacegroups = m/\w(\s+)\w/g;
    foreach my $whitespacegroup(@whitespacegroups){
        my $count = length $whitespacegroup;
        print "$count spaces\t";
    }
    print "\n";
}
__DATA__
I wake     up in          the                                morning
What       time?
Always     wakeup      at                    6am.

Output is:

1 spaces	5 spaces	1 spaces	10 spaces	32 spaces	
7 spaces	
5 spaces	6 spaces	20 spaces

[k_manimuthu]

And another one way by using of expression statement

#!/usr/bin/perl;
use strict;
use warnings;

while (<DATA>){
	s/(\s+)/" [".length($1)." Spaces] "/ge;
	print ;
}
__DATA__
I wake     up in          the                                morning
What       time?
Always     wakeup      at                    6am.