#!/usr/bin/perl
use strict;


print "\n Bitte hier eine Mail Adresse eingeben :";
chomp (my $addr=<STDIN>);
print "\n Adresse = " .$addr;
my ($login, $host) = $addr =~ /^(.+)\@(.+)$/; #split('@',$addr,2)
print @_;
print "\n";
print $_;
print "\n login:".$login;
print "\n host:".$host."\n";

$login =~ s/\.//g;
$host =~ s/\.//g;
#$host =~ s/[\.\-]//g;
print " login nach bearbeitung :".$login."\n";
print " host nach bearbeitung :".$host."\n";