sub special_read {
  my $fh = shift;
  local $/ = "<!>"; ## <--- how do avoid this on each call?
  <$fh> ;
}