Actually... excerpted from perldoc -f chomp

If you chomp a list, each element is chomped, and the total number of characters removed is returned.

So , something like this will remove the locale equivalent of a newline from every element:

my @input = <STDIN>;
chomp( @input );
[download]

Now everything entered on STDIN separated by a newline has been chomped.

Just be wary of precedence... Also from perldoc -f chomp:

Note that parentheses are necessary when you're chomping any- thing that is not a simple variable. This is because "chomp $cwd = `pwd`;" is interpreted as "(chomp $cwd) = `pwd`;", rather than as "chomp( $cwd = `pwd` )" which you might expect. Similarly, "chomp $a, $b" is interpreted as "chomp($a), $b" rather than as "chomp($a, $b)".

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]