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

 perl -wle'
my $zufallszahl = 23;
if ($zufallszahl != chomp($eingabe = <STDIN>)) {
    print "zufallszahl $zufallszahl ungleich $eingabe";
}'
23
zufallszahl 23 ungleich 23