$/ = undef;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

$/ = undef;

my $s1 = <STDIN>;
print("\$s1= <$s1> \n");

if (<STDIN>) {
  my $s2 = <STDIN>;
  print("\$s2= <$s1> \n")
}