Puoi fare una cosa di questo tipo.

$inp = <FILE>;
$inp =~ /([\w]?http[a-z]?\:\/\/([\w\-]\.)+\w{2,5}(\/[\w\-])*[^\"\' ])|([a-zA-Z][\w\-\.]+\@([\w\-]\.)+\w{2,5})/
if($1) $vett[@vett] = $1;

Da inserire in un loop che esce se il file e` finito.

Se ci possono essere piu` di un indirizzo e-mail o Web nella stessa riga, occorre modificare un po'.

Nota che il forum ha tagliato qualche backslash (sicuramente davanti all'apice) e forse ha inserito qualche spazio/acapo