in reply to Re^2: print matching linesin thread print matching lines
# input 2 xxx yyy 1 [download]
while (<FH>) { local $/ = '# input'; if (m/1ord/) { print "$/\n";} } [download]