[: ββ ]
[ # 2: ]
perl -i.bak -pe 'if (defined $x && /\S/) { print $x; $x = ""; } $x .= "\n" x chomp; s/\s*?$//; 1 while s/^(\t*) /$1\t/; if (eof) { print "\n"; $x = ""; }' **/*(.)
, \n . , . , \n, print "\n"; .
"" \n , , , - .
.bak, ( !)
\s*? , , \r, \r\n DOS. Perl $ , \n, , *? - ( 0, 1- width match ..), .
1 while s/^(\t*) /$1\t/ - , , , 4 , , , , . , , , \t , 4.
**/*(.) , , zsh? sed, perl.