perl -MO=Deparse,-p
print $x= "hi";
chomp $x= "hi";
chop $x= "hi";
sprintf $x= "hi";
printf $x= "hi";
reverse $x= "hi";
join $x= "hi";
unlink $x= "hi";
die $x= "hi";
warn $x= "hi";
__END__
print(($x = 'hi'));
(chomp($x) = 'hi');
(chop($x) = 'hi');
sprintf(($x = 'hi'));
printf(($x = 'hi'));
reverse(($x = 'hi'));
join(($x = 'hi'));
unlink(($x = 'hi'));
die(($x = 'hi'));
warn(($x = 'hi'));

##</code><code>##

    left	terms and list operators (leftward)
[...]
    right	= += -= *= etc.
[...]
    nonassoc	list operators (rightward)
[...]
=head2 Terms and List Operators (Leftward)
[...]

##</code><code>##

[...]
=head2 List Operators (Rightward)

##</code><code>##

chomp( @x )= whatever;

##</code><code>##

chop( $x )= whatever;
chop( @x )= whatever;
chomp( $x )= whatever;

##</code><code>##

chomp my @input= <STDIN>;