in reply to Re^3: print matching lines
in thread print matching lines

while (<FH>) {

local $/ = '# input';

if (m/1ord/) {
print "$/\n";}
                                }

[download]
this prints the local variable, how can i adjust it to print the enitre # input line?

In Section Seekers of Perl Wisdom