In Perl, an assignment itself can serve as an lvalue.
chop ($input = 123); print $input; chop ($input = <>); print $input;