The m modifier is useless since ^, $, etc isn't used. In fact, why aren't you using \z when you change the IRS? And why not use "\n\n=" as the IRS?

local $/ = "\n\n=";
while (<DATA>) {
    s/\n\n=\z/\n=/;
    print;
}
[download]