local $/ = "# input";
while (<FH>) {
   print "got record:\n", $_, ":end of record\n";
}