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

open (LOGFILE "/tmp/app.log");
while (<LOGFILE>) {
$line=$_;    
chomp($line);

if ($line =~ /xception/) {
print ERRFILE "$line\n";
}