What do you plan on doing with that information?

$line = " This is the test line";
if( $line =~ /(\S)/ ){ # match first non-space character
   print index($line, $1),"\n"; # find index
}
__END__
[download]

perldoc -f index