$ perl -wle '
$line = "   This is a test.";
if ( $line =~ m/(\S)/g ) {
  print pos($line);
}
'
4