$ perl -wle 'my $_ = "abc"; chop; print'
ab
$