#!/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";
}