Path: utzoo!attcan!uunet!samsung!cg-atla!white
From: white@cg-atla.UUCP (Frank )
Newsgroups: comp.lang.perl
Subject: Is this a Bug?
Keywords: perl bug
Message-ID: <9134@cg-atla.UUCP>
Date: 5 Oct 90 14:57:39 GMT
Distribution: na
Organization: Agfa Compugraphic Division, Wilmington, Mass. USA
Lines: 26


	I am using 'perl' PL18. Running the following script
causes "WORD WITH PARENS" to be printed. What's the difference?
----------------- cut here -------------------------------------------
#!/usr/local/bin/perl

$_ = "This line contains a\nword beginning a line";
if ( /^word/ ) {
	print "WORD NO PARENS\n";
} elsif ( /^(word)/ ) {
	print "WORD WITH PARENS\n";	# I get this message !!
}
----------------- cut here -------------------------------------------
				Chip White (Uunet!samsung!cg-atla!white)
				Principal Software Engineer
				AGFA Compugraphic Division
				200 Ballardvale Street
				Wilmington, Massachusetts 01887
				MS-200-3-7K
				Phone:     (508) 658-5600 (x5440)
				CompuDial: (508) 658-0200 (x5440)
-- 
Chip White 			      
AGFA Compugraphic	    ...!{decvax,samsung}!cg-atla!white
200 Ballardvale St.	               
Wilmington, Mass. 01887