{
    local $/ = "\t";
    while (my $data_frag = <FH>)
    {
        # process $data_frag here
    }
}