[Perl] Sentencia q no funciona bien

[Ing. Ricardo Cumberbatch L. (PANNet - URC)]

 Hola lista 
 
 Cree un script el cual esta funcionando mas o menos, la parte q no me esta
 funcionando es la de una sentencia IF.
 
 Lo q trato de hacer q lea de un archivo verifique un campo contra otro que
 viene de un cgi y si es igual procede a desplegar contenido y sino nada
 sucede.
 
 open (LECTOR, "$dataintro") || die "ERROR: NO Encuentro el archivo
 'est_whois'\n";
 while ($_ = <LECTOR>) { #PRIMER WHILE
  	chomp;
 	@linea = split;
 	#$ced = split (/\//, $linea[2]);
 if ($cedula =~ $linea[2]) {
 .
 .
 .
 
 Digamos que $cedula tiene el valos de 8-456-789 y $linea[2] tambien lo
 mismo el resultado se despliega sin ningun problema.
 
 Pero cuando $cedula = PE-456-987 y $linea[2] supuestamente tiene lo mismo
 el script no me hace nada y para mi esta extranio eso.


 Ya anteriormente usaba, al principio eq, luego cambie a =~ el cual
indica match pero tambien probe con el signo de
== y no funcionaba si utilizaba dicho simbolo

 
 Por favor podrian sugerirme algo.
 
 Gracias