open my $pipe , '-|' , 'sqlplus user/pass @test.sql'
    or die "hmm? $!";

while( <$pipe> ){
    print if /error/i
}

close $pipe or die "hmhmm? $!";