while (<FILE>) {
    if (/aaaa$/) {
        $/ = '%';
        while (<FILE>) {} # I tried it with and without this loop
    }
}