#!/usr/bin/perl use strict; $| = 1; $/ = 'ERROR at '; while(<>) { /ERROR at / && /[\0-\xff]*^executing: \@(.+)/m and (unlink $1 or warn "$1 $!"); }