Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!carssdf!usenet
From: usenet@carssdf.UUCP (John Watson)
Newsgroups: comp.unix.questions
Subject: Re: novice sed ?
Summary: what about $* flag
Message-ID: <304@carssdf.UUCP>
Date: 6 May 91 12:11:12 GMT
References: <1991May3.213550.17246@ge-dab.GE.COM> <1991May5.140740.12908@iwarp.intel.com>
Organization: C.A.R.S.,Middlesex,NJ
Lines: 7

> perl -pe 'while (/,\s*$/) {$_ .= <STDIN>; s/,\s*\n\s*/ /;}' <in >out
> /=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\

In this example, don't you have to set $* =1; to get the s/,\s*\n\s*/ to
match.

John Watson