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};
	}
}