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;
    }
}