$string =~ / \w/;  # a space followed by a word character
$string =~ /\s\w/; # any whitespace character followed by a word character
$string =~ /\s\S/; # any whitespace character followed by a non-whitespace character