SPUG: a s/// question.

[Jim Traugott]

How about this?


#! perl -w

use strict;

while ( <DATA> )
{
	$_ =~ s/name\s+last\s+chng\s+bid\s+ask\s+vol\(H\)\s+high\s+low\s+ahigh\s+alow//;
	print;

}

__END__
name	last	chng	bid	ask	vol(H)	high	low	ahigh	alow
fubar
some other line


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 SUBSCRIBE/UNSUBSCRIBE: Replace "action" below by subscribe or unsubscribe
           Email to majordomo at pm.org: "action" spug-list your_address