I decided to try 122 but it doesn't work..
Any ideas?
speach () { cat $1 |
perl -n00e'tr/\n\n/\122/s; # this is experimental
tr/\t\r\n/ /s;
tr/\122/\n/s; # this is experimental
print qq($1\n) while s/^(.{0,36}\S)\s+//;
print qq(\n)' |
perl -pe 'if ($.%4==2) {$_ .= qq(\n).(q(-) x 37).qq(\n)}
elsif ($.%4==0) {$_ .= qq(\n).(q(=) x 37).qq(\n)}
else {$_ .= qq(\n)}' ;}
--
- = -
Vasos Panagiotopoulos, Columbia'81+, Reagan, Mozart, Pindus, BioStrategist
http://ourworld.compuserve.com/homepages/vjp2/vasos.htm
---{Nothing herein constitutes advice. Everything fully disclaimed.}---
[Homeland Security means private firearms not lazy obstructive guards]
[Urb sprawl confounds terror] [Remorse begets zeal] [Windows is for Bimbos]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
