Select Code to Download

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

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