$s = "The\tquick\tbrown\tfox\njumps\tover\tthe\tlazy\tdog";;
print $s;;
The quick brown fox
jumps over the lazy dog
($t=$s);
$t =~ s[([^\n]+\n?)]{ my$l=$1; 1 while $l=~s[(\t)]{ '.'x(8-($-[0] % 8)
+)}e; $l}ge;
print $t;;
The.....quick...brown...fox
jumps...over....the.....lazy....dog
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
|