perl -MFile::Find -pi.bak -e "BEGIN {find sub {-f && push @ARGV, $File::Find::name}, \".\"} 
if (/inserted banner/i) {while (<>) {s/.*// and last if /end of inserted banner/i;}}"