#!/usr/bin/perl
use strict;

my $input;

local $/;
$input = <STDIN>;
print $input;

$input = <STDIN>;
print $input;


##</code><code>##


#!/usr/bin/perl
use strict;

my $input;
{
local $/;
$input = <STDIN>;
}
print $input;

$input = <STDIN>;
print $input;


##</code><code>##


#!/usr/bin/perl
use strict;

my $holdRS = $/;
local $/;
my $input = <STDIN>;
$/ = $holdRS;

print $input;

my $holdRS = $/;
local $/;
my $input2 = <STDIN>;
$/ = $holdRS;

print $input2;


##</code><code>##


#!/usr/bin/perl
use strict;

my @userinput = <STDIN>;
foreach (@userinput) { print; }

my @userinput = <STDIN>;
foreach (@userinput) { print; }