Re: Replacing a message with its filtered output

[darren chamberlain]

Quoting Mike Schiraldi <[EMAIL PROTECTED]> [Mar 21, 2002 17:17]:
> #! /usr/bin/perl -W
> while(<>) { print; s/\r//g; chomp; last unless $_; }
> while(<>) { y/A-Za-z/N-ZA-Mn-za-m/; print; }

  while (<>) {
      (1 .. /^$/) ? s/\r\n//g : y/A-Za-z/N-ZA-Mn-za-m/;
      print;
  }

:)

(darren)

-- 
All pleasures cost at least the time they take.