Perl conditions if avec chaine

Bonjour, je vous expose mon script, à première vue tout est bon, j 'ai passé en revue les forums et je trouve pas mon erreur.

Lorsque je saisis bonjour ou un autre mot il me retourne toujours une erreur, donc je n 'écris jamais bonjour selon le programme alors que si. Que faut-il corriger svp ?

#!/usr/bin/perl -w
use strict;
use warnings;
my $rep;

print "Saisir bonjour \n";
$rep = <STDIN>;
if ($rep eq "bonjour")
{
print $rep;
}
else
{
print "erreur";
}