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