Ciao a tutti, da poco mi sono avvicinato al perl e ho il seguente listato:

codice:
$aa = "pippo@pippo.it";

if ($aa =~ /[a-z]+\@[a-z]+\.[a-z]{2}$/){
	print "ok";
}else{
	print "no";
}
puntualmente mi stampa "no" ! mentre se al posto della @ metto, per esempio, il # (sia in $aa che nella regexp) allora stampa "ok" .

Quacuno mi può dare una mano?

PS. L'interpetre è ActivePerl 5.10