use strict;
use warnings;

my $email = $ARGV[0];

# my ($localpart) = $email =~ /(.+)@/;
# print "$localpart \n";

if ( $email =~ /(.+)@.+\.(.+)\.(.+)/ ) {
  print "$1 - $2 - $3\n";
} else {
  print "keine email!\n";
}