aiuto per programmino

[bettola]

ho scritto questo script che mi rileva se all'interno di una frase c'è una sottostringa con una email.

#!/usr/local/bin/perl
$a = $ARGV[0];
print $a;
if($a =~ /\w\@\w+\.\w+/) {
print $&;
print "\n";
}


purtroppo mi dà dei problemi, ad esempio se nella frase ci sono spazi fa il confronto solo con le lettere precedenti al primo spazio.
Inoltre vorrei farmi scrivere l'email trovata mentre invece
$& scrive tutta la stringa (inoltre la scrive 2 volte e non so perché!)

Sapete darmi una mano?

[Mich_]

Non ho mai usato il $&, anche perche` sconsigliato dal manuale (problemi di performance).

Invece io userei il $1 :

if($a =~ /\W([\w\.]+\@(\w+\.)*\w+)\W/) {
print "$1\n"; 
}

[bettola]

con $1 non mi scrive niente (presumo poi vada inserito non fra apici)

[Mich_]

IL $1 si riferisce alla prima parentesi individuata dalla RE.

Si usa come una variabile, quindi va scritto tra virgolette (non fra apici).

Piuttosto allarga il filtro dato dalla RE: magari la ho scritta troppo restrittiva.