my $x = "23\n";
print chomp($x);
print "|";
chomp $x;
print $x;