my $adr = 'User@domain.com';
...