Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!wuarchive!uwm.edu!ux1.cso.uiuc.edu!ux2.cso.uiuc.edu!ejk
From: ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CSO )
Newsgroups: comp.lang.perl
Subject: Re: need help with rexpr
Message-ID: <1991Feb22.182003.24994@ux1.cso.uiuc.edu>
Date: 22 Feb 91 18:20:03 GMT
Sender: usenet@ux1.cso.uiuc.edu (News)
Reply-To: ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CSO )
Organization: University of Illinois - Urbana
Lines: 10

This seems to work (at least with the sample data you provided):

while (<>) {
   chop; @vars = split(/\s+"/); for(@vars) { s/"//g; }
   < refer to $var[0], $var[1],..., $var[$#var] >
   }

----------------------------------
Ed Kubaitis (ejk@uxh.cso.uiuc.edu)
Computing Services Office - University of Illinois, Urbana