2010-02-11T12:52:46 pq

Code: (dl )

1
2
3
4

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

1
2
3
4
5

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