while (<FH>) {

local $/ = '# input';

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