Unless the network is lying to me again, peter green said: 
> * Brett Randall <[EMAIL PROTECTED]> [010626 21:49]:
> > >>>>> "Chris" == Chris Bolt <[EMAIL PROTECTED]> writes:
> > 
> > > perl -e 'while(<>){$_=~tr/A-Za-z/N-ZA-Mn-za-m/;print}'
> > > Then paste the email :-)
> > 
> > Or, a bit shorter,
> > 
> > $ tr 'a-zA-Z' 'n-za-mN-ZA-M' < email
> 
> Or a bit kludgier,
> 
>   perl -ni -e 'foreach (split //){unless(/\w/){print; next;}print
>   chr(((ord(lc)-96+13)%26)+96)}'

Why not "rot13 < email"

AlanC

Reply via email to