perl -ne 'BEGIN {$/="From: "} print unless /Subject:\s+
ILOVEYOU/' infectedfile > cleanedfile