From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 26191 invoked by alias); 25 Mar 2014 01:57:28 -0000 Mailing-List: contact zsh-users-help@zsh.org; run by ezmlm Precedence: bulk X-No-Archive: yes List-Id: Zsh Users List List-Post: List-Help: X-Seq: 18671 Received: (qmail 26289 invoked from network); 25 Mar 2014 01:57:21 -0000 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on f.primenet.com.au X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_NONE autolearn=ham version=3.3.2 From: Bart Schaefer Message-id: <140324185656.ZM4923@torch.brasslantern.com> Date: Mon, 24 Mar 2014 18:56:56 -0700 In-reply-to: <140324153628.ZM4798@torch.brasslantern.com> Comments: In reply to Bart Schaefer "Re: Segregating a Global Alias" (Mar 24, 3:36pm) References: <140324153628.ZM4798@torch.brasslantern.com> X-Mailer: OpenZMail Classic (0.9.2 24April2005) To: zsh-users@zsh.org Subject: Re: Segregating a Global Alias MIME-version: 1.0 Content-type: text/plain; charset=us-ascii On Mar 24, 3:36pm, Bart Schaefer wrote: } } perl -pe '$. == 1 && open STDOUT,"> $ARGV.txt"; s/(<\/\w+>)/$1\n/g' NF } } That'll work for a whole list of files just like the "for" loop. Phil reminds me off-list that $. is not automatically reset when the value of $ARGV changes, so for multiple files you actually need: perl -pe '$. == 1 && open STDOUT,"> $ARGV.txt"; s/(<\/\w+>)/$1\n/g; close ARGV if eof;' NF which might make this answer less appealing.