#!/usr/bin/perl

use strict;
use warnings;


my @stuff = ('klaus@klaus.de klaus', 'fritz@fritz.de fritz', 'guenni@guenni.de guenni', 'hermann@hermann.de hermann');


foreach my $foo (@stuff) {
        $foo =~ /(\w+\@\w+\.\w+)\s(\w+)/;
        print $1 . " => ". $2;
        print "\n";
}