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