#!perl
use strict;
use warnings;

$^I='';
$/="\n||";
while (<>) {
    s/\n\|\|$/||/;
    print;
    print "-Damn" if eof;
}