in reply to Undefined Error

Can you not use RESULT instead of/as well as SRCH=Q ? ; 
if( /SRCH=Q|RESULT/ ) {

[download]
poj

In Section Seekers of Perl Wisdom