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