Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. The S metasymbol and nonwhitespace
while(){
    print if s/\S/*/g;
}
__DATA__
    A
    AAA
    AAAA