$s="\\Befehl{1}{2}{3}";
print "Test mit ((\$re)+)\n";
if ($s =~ /\\Befehl(($re)+)/g){
	foreach $expr (1..$#-) {
		print "\targument $expr = $$expr\n";
	};
};