#!/usr/bin/perl -wT
use strict;
use warnings;

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

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

##</code><code>##


perl>  echo -ne "hello\x0aWorld" | ./pipe_x-1.pl  # try \n
$s1= <hello
> 
$s2= <hello:
> 

perl>  echo -ne "hello\x0dWorld" | ./pipe_x-1.pl  # try \r
World> ello

perl>  echo -ne "hello\x09World" | ./pipe_x-1.pl  # try \t
$s1= <hello     World>