FW: Find string ending with %

[Keenan, Greg John (Greg)** CTR **]

-----Original Message-----
From: John W. Krahn [mailto:[EMAIL PROTECTED] 

while(<DATA2>) {
  my @oput2 = /(\d+)%/ or next;
  print "XXX @oput2 XXX\n";
}



Thanks John, that's solved it.  I'll read up on next.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>