chomp in a while statement

   

while (chomp($input = <>)) {

    print "You typed: $input\n" unless $input eq 'L';

}

1.	Difference between chomp and chop
2.	Type four characters with chomp
3.	Type four characters without chomp
4.	chomp matches the input line separator defined by the $/ system variable.
5.	chop function deletes the character at the right end of the line of text
6.	The chomp function is a safer version of chop
7.	The chop function removes the last character in a scalar variable
8.	Chomp the pre-set character
9.	Chomp: Last character removed only if a newline
10.	Chop function in action
11.	Chop: Removing the last character, regardless of what it is
12.	Cleaning Up Typed Input

chomp in a while statement : chop chomp « String « Perl