$/ = ""; while(){ s#=[^\n\S]*\n(?!.*=)(?!)#= #g; print; } __END__