The \S metasymbol and nonwhitespace

    

while(<DATA>){
    print if s/\S/*/g;
}
__DATA__
    A
    AAA
    AAAA

1.	The e Modifier Evaluating an Expression
2.	The e modifier
3.	The g Modifier Global Substitution
4.	The m Operator and Matching
5.	The m modifier controls the behavior of the $ and ^ anchor metacharacters.
6.	The s Modifier-The Dot Metacharacter and the Newline
7.	The s Operator and Substitution
8.	The s operator supports a number of variables
9.	The x Modifier: The Expressive Modifier
10.	The i Modifier Case Insensitivity
11.	\B matches only if the pattern is contained in a word.
12.	The \s metasymbol and whitespace
13.	ei modifier
14.	Use /gc to remember position
15.	Use \G to match rest of text
16.	Matching Modifiers
17.	Inline Modifiers

The \S metasymbol and nonwhitespace : modifier « Regular Expression « Perl