

In <[email-masked]> [email-masked] (Dale R. Worley) writes:

>In article <[email-masked]> Tom Christiansen <[email-masked]> writes:
>   In perl, you can use logicals for ifs, and write:

>       /^\0$/ && $i++ while <>;

>But we still need to replace "while" with punctuation ... with a few
>changes, Perl could rival Intercal in incomprehensibility!

A while ago, somebody proposed

	perl -ne '$:=$_;/^$__$/&&($_="");$__=$:;'

as a replacement for uniq(1).  Try that in Intercal!

--
Hans Mulder		[email-masked]