In article <[EMAIL PROTECTED]>,
        [EMAIL PROTECTED] (Ton Hospel) writes:
> In article <[EMAIL PROTECTED]>,
>       [EMAIL PROTECTED] (Ton Hospel) writes:
>> perl -le '[EMAIL PROTECTED]@!~/(.*)(1|2)\1$/||3-$2for 0..98'
> and of course:
> perl -le '[EMAIL PROTECTED]@!~/(.*)(.)\1$/||3-$2for 0..98'
mtve:
print$_.=!/(.*)(.)\1$/||3-$2for($_)x99

Reply via email to