{local $/ = "aaaa\n"; <FILE> }
{local $/ = "%"; while( <FILE> ){ } }