## from _read_record() in Tie::File
  { local $/ = $self->{recsep};
    my $fh = $self->{fh};
    $rec = <$fh>;
  }
...
    unless ($self->{rdonly}) {
      local $\ = "";
      my $fh = $self->{fh};
      print $fh $self->{recsep};
    }

##</code><code>##

use Some::Module qw[ funcA ];
use Someother::Module qw[ funcb ];

local $/ = \64;
while( <$fh> ) {
    ## do stuff
    {
       local $/ = "\n";
       funcA();
    }
    ## Do stuff
    { 
        local $/ = "\n";
        funcB();
    }
    ## Do stuff
    {
        local $/ = "\n";
        funcA;
    }
}