%dictHash=('A','4','M','///','N','\\\\','W','\\\\\\'); #ein Auszug
@dictkeys=sort(keys(%dictHash));
foreach (@dictkeys)
{
	$_[1]=~s/$_/$dictHash{$_}/g;
}