my $prev = "";
while (<ORA>) {
    print $prev if /^Func_file_permission$/;
    $prev = $_;
}