Hallo Carsten,

";
s&.*?&#0*([^;]+);&chr($1)&seg;
print;

-----------------
$_="
a9105535@unet.univie.ac.at
";
s&.*?&#0*([^;]+);&chr($1)&seg;
print;
-----
perl mail.pl
Bareword found where operator expected at mail.pl line 4, near "s&.*?&#0*([^;]+
);&chr"
Operator or semicolon missing before &seg at mail.pl line 4.
Ambiguous use of & resolved as operator & at mail.pl line 4.
syntax error at mail.pl line 4, near "s&.*?&#0*([^;]+);&chr"
Execution of mail.pl aborted due to compilation errors.

...sonst kann das ja keine Sau lesen ;-)

copy & past in eine html seite und jeder (unicode fähige) browser kann das lesen ;-)

grüße
thomas