eval qq{\$str = "$eingelesen"};