my %HoH = (
				domain => {
					before   	=> "s",
					regex       => " \| .*\.\w*",
					after       => "g",
					replace     => "",
				},
				amazonde => {
					before   	=> "s",
					regex       => " - Amazon.de",
					after       => "g",
					replace     => "",
				},
				linetrenner => {
					before   	=> "s",
					regex       => "<br \/>",
					after       => "g",
					replace     => "{@}",
				},
				clearhtml => {
					before   	=> "s",
					regex       => "<.+?>",
					after       => "g",
					replace     => "",
				},
				clearlastwhite => {
					before   	=> "s",
					regex       => "\s+\$",
					after       => "",
					replace     => "",
				},
				checkpos => {
					before   	=> "",
					regex       => "^(\d+\.?\d*|\.\d+)\$",
					after       => "",
					replace     => "",
				},
				clearebay => {
					before   	=> "s",
					regex       => " bei ebay\$",
					after       => "i",
					replace     => "",
				},
				getkurl => {
					before   	=> "",
					regex       => "((https?:\/\/)?([\-\w]+\.)+\w{2,3}(\/[%\-\w]+(\.\w{2,})?)*(([\w\-\.\?\\\/+@&#;:~=%!]*)(\.\w{2,})?)*\/?)",
					after       => "g",
					replace     => "",
				},
			);
		return %HoH;

sub subst {
	#paramater holen
    my ($search, $replace, $mod) = @_;

    if (my $eval = $mod =~ s/e//g) {
        $replace = qq{'$replace'};
        $replace = "eval($replace)" for 1 .. $eval;
    } else {
        $replace = qq{"$replace"};
    }

	if($mod eq "g"){
		sub {s/$search/$replace/gee};
	}else{
		sub {s/(?$mod)$search/$replace/ee};
	}
}

%hRegex = %{$hRegexAll{domain}};
$sub = subst($hRegex{regex}, $hRegex{replace}, $hRegex{after});
		$_ = $sHeader;
		
		$sub->();
		$sHeader = $_;