Søg og erstat

Vil gerne fjerne alt fra en streng, der IKKE er a-z A-Z æ-å Æ-Å 0-9 - . @

Kort sagt alt der ikke er email.

Kontrol:
$streng='je_:;_-.,µ!"#¤%&/()=??`|ns@test.dk';
$streng =~.................................;
print "$streng er det samme som jens@test.dk";