c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = '    a     ';
 ;;
 $s =~ m{ \S }xms;
 print $-[0];
"
4