$ perl -wle'
my $x="23\n";
print chomp($x)'
1