Mega Code Archive
Categories
/
Perl
/
Regular Expression
The S metasymbol and nonwhitespace
while(<DATA>){ print if s/\S/*/g; } __DATA__ A AAA AAAA