while (<>) {
    print '#' if $_ ne $/;
    print;
}
[download]

You may have some other conditions to apply, but you didn't mention them.