Utiliser des variables dans un parsing

Bonjour, j'aimerais savoir comment utiliser des variables pour parser une ligne, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

$line = "ceci est une jolie ligne"; while (<STDIN>) { if ($line =~ /$_/) { print "Ca marche" } else { print "Ca ne marche pas" }   }

---

J'ai essayé de taper par exemple jolie ou ligne mais ça me retourne à chaque fois "Ca ne marche pas"

Merci de m'aider, a plus

Question stupide, désolé, j'avais oublier de chomp $_;