$ perl -le'
my $input = "I am new to perl";
while ( $input =~ /\S+/g ) {
    print $+[0] - $-[0];
    }
'
1
2
3
2
4