BEGIN {$^W = 1}
use strict;
use IO::All;

# Copy STDIN to a String File one paragraph at a time
my $stdin = io('-');
my $string_out = io('$');
while (my $paragraph = $stdin->getline('')) {
    $string_out->print($paragraph);
}

print ${$string_out->string_ref};