-----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>