while(<STDIN>){
   print "Current line is storaged in: ".$_;
   chop;
   print "Current line without new line character: ".$_."\n";
}

##</code><code>##

while(<>){
 chop;
 print "I have $_ as input\n";
}