open (ERRFILE, ">error.log");

open (LOGFILE "/tmp/app.log");
while (<LOGFILE>) {
    print ERRFILE $line if /xception/;
}